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Self&dFENSE 


for EDP managers. 


The micro invasion 
has begun. And, chances 
are, you've now got a lot of 
different people in a lot 
of different departments 
using a lot of different 
micros. 

Now there's a way for 
you to control and maxi- 
mize the benefits of all the 
different micros in your 
domain. 


Fight back with dBASE II.” 


dBASE II is the relational database 
management system from Ashton-late 
that enables you to manage your micro- 
based corporate data resources with the 
high level of consistency and sophistica- 
tion you've enjoyed with mainframe and 
minicomputer systems. 

Armed with dBASE II and the 
dBASE II RunTime™ program develop- 
ment module, you can write programs 
which will enable micro users in each 
department to “do their own thing” while 
creating complete database consistency 
throughout the company. 

dBASE II is a powerful, flexible way 
for you to effectively manage the micro 
proliferation. 








Help is here. 


If you'd like to know more about 
how dBASE II and RunTime can help you 
win the micro management battle, contact 
Ashton-Tate today. 10150 West Jefferson 
Boulevard, Culver City, CA 90230. 

(800) 437-4329, ext. 217 . In Colorado 
(303) 799-4900. In the U.K. (0908) 568866. 


ASHTON ‘TATE 


dBASE II is a registered trademark and RunTime is a trademark of Ashton-Tate. 


Suggested retail price for dBASE II is $700. 
© Ashton-Iate 1984 
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FORTH GIVES YOU 








TOTAL CONTROL 





ie gt 
GRAPHICS « GAMES « COMMUNICATIONS 
ROBOTICS ¢ DATA ACQUISITION « PROCESS CONTROL 


FORTH: for Z-808 8080, 8086, 68000, and IBM® PC 
(Complies with the New 83-Standard) 


@ FORTH programs are instantly 
portable across the four most 
popular microprocessors. 


@ FORTH is interactive and 20 
times faster than BASIC. 


e FORTH programs are highly 
Structured and easy to maintain. 


@ FORTH provides direct control 
over all interrupts, memory loca- 
tions, and i/o ports. 


@ FORTH allows full access to 
DOS files and functions. 


© FORTH application programs 
can be distributed as turnkey 
COM files with no license fee. 


@ FORTH Cross Compilers are 
available for ROM’ed or disk 
based applications on most 
microprocessors. 


e Custom programming, con- 
sulting, and educational services 
available. 





/ 


FORTH Application Development 
Systems include interpreter/compiler with 
virtual memory management and multi- 
tasking, assembler, full screen editor, de- 
compiler, utilities, and detailed technical 
manual. Standard random access files used 
for screen storage, extensions provided for 
access to all operating system functions. 
2-80 FORTH for CP/M® 2.2 or MP/M II, 
$50.00; 8080 FORTH for CP/M 22 or 
MP/M II, $50.00; 8086 FORTH for CP/M-86 
or MS-DOS, $100.00; PC/FORTH™ for PC. 
DOS, CP/M-86, or CCPM, $100.00; 68000 
FORTH for CP/M-68K, $250.00 


FORTH + Systems are 32 bit implementa- 
tions that allow creation of programs as large 
as 1 megabyte. The entire memory address 
space of the 68000 or 8086/88 is supported 
directly for programs and data. 

PCFORTH+................. $250.00 
8086 FORTH + forCP/M-86.._.... $250.00 
68000 FORTH + forCP/M-68K .. . $400.00 


FORTH Cross Compiler allows you to cus- 
tomize the FORTH nucleus, recompile on a 
host computer for a different target com- 
puter, generate headerless and ROM-able 
code. Supports forward referencing. Pro- 
duces executable image in RAM or disk file. 
No license fee for applications, $300.00. 


FORTH Native Code Compilers 


For Z80 FORTH andCP/M.....__. $100.00 
For 8086 FORTH andCP/M-86.__s $200.00 
ForIBMPCandPC-DOS ......__.. $200.00 
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Laboratory Microsystems Incorporated eae 
4147 Beethoven Street, Los Angeles, CA 90066 


Phone credit card orders to (213) 306-7412 


Extension Packages 

Software floating point (Z-80, 8086, PC only), 
$100.00; AMD 9511 support (Z-80, 8086, 
68000 only), $100.00; Intel 8087 support 
(8086, PC only), $100.00; Advanced color 
graphics (PC only), $100.00; Symbolic 
interactive debugger (PC only), $100.00; 
PC/TERM Communications/file transfer for 
Smartmodem, $60.00; Cross reference 
utility, $25.00; PC/GEN (custom character 
sets, PC only), $50.00; Curry FORTH Pro- 
gramming Aids, $150.00; B-Tree index 
manager, $125.00; B-Tree index and file 
manager, $200.00; QTF + Screen editor for 
IBM PC, $100.00; Quad Integer Math Pack, 
$25.00. 


AUGUSTA, Ada subset compiler from Com- 
puter Linguistics for Z-80 CP/M 2.2 systems, 
$90.00 


“Starting FORTH” tutorial by Brodie, soft- 
cover, $16.00. 


INTEL 8087-3 Numeric Coprocessor, 
$250.00 


SSS 


Z-80 and 8080 FORTH require 48 Kbytes RAM. 8086 and 
68000 FORTH require 64 Kbytes RAM. Disk formats avail- 
able include: 8’’ standard CP/M SSSD, Northstar 5 14”’ QD, 
Kaypro 5%’’, Apple 5%’’, Micro-Mate 5%'’, MS-DOS 
9%", Osborne 5%"', DD, and Sage. Most other formats 
can be special ordered. Dealer inquiries invited. 


Z-80 is a registered trademark of Zilog, Inc.; CP/M is a 
registered trademark of Digital Research, Inc.: IBM is a 
registered trademark of International Business Machines 
Corp.; Augusta is a trademark of Computer Linguistics; 
PC/FORTH and PC/GEN are trademarks of Laboratory 


Microsystems Inc. 
MasterCard 











From the Rainbow to the VAX 


FLEXIBILITY — the same compiler 
PORTABILITY — dozens of systems 
PORTABLE C LIBRARY — UNIX 
compatible 

COMPATIBILITY — new UNIX-style 
library 

AFFORDABILITY — high portability 
EASY LICENSING — the 
Authorization Seal 

RELIABILITY — thousands of 
installations 


COMPLETENESS — the full language 


DISTRIBUTOR AND 
DEALER INQUIRIES INVITED 


oe . from the PC Jr. to the 370. 


Whitesmiths’ C and Pascal Compilers 
continue to set the industry standards 


wie 






MS/PC-DOS 


CP/M-80 CP/M68K  CP/M-86 P/OS 





UNIX 
IDRIS/R11 
RSX-11 
RI-1l 
VMS-VAX 
UNIX-4.1 BSD 
UNIPLUS 
IDRIS/S68K 
MS/PC-DOS 
CP/M-86 
IBM 370 















CP/M-80* CP/M68K P/OS-11 VERSAdos 


*2.1 Cross Compilers available 


BUILD A STRONG FOUNDATION WITH THE COMPILERS OF THE 80's 


97 Lowell Road 
Concord, MA 01742 (617) 369-8499 





Whitesmiths, Ltd. TLX 951708 SOFTWARE CNCM 


UNIX is a trademark of Bell Laboratories; Rainbow, PDP-11, P/OS, RSX-11, RT-11, VAX and VMS are tr 


ademarks of Digital Equipment 


Corp., CP/M is a trademark of Digital Researc 
of Unisoft, Inc., IBM PC, PC Jr. PC-DOS and 


h Co., MC68000 and VERSAdos are trademarks of Motorola, 


Inc., UNIPLUS is a trademark 


IBM 370 are trademarks of International Business Machines Corp., MS-DOS is a trademark of 


Microsoft Corp., Idris is a trademark of Whitesmiths, Ltd. 


Distributors: Australia, Fawnray sh Ltd., Hurstville, (612) 570-6100; Japan, Advanced Data Controls Corp., Chiyoda-ku, Tokyo 
(03) 263-0383; United Kingdom, Real Time Systems, Douglas, Isle of Man 0624833403; Sweden, Unisoft A.B., Goteborg, 031-13-56-32. 
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EDITORIAL 


Dr. Dobb’s Journal began as a forum for sharing information and ideas about pro- 
gramming and computers. It continues to be a place to present new languages, utilities, 
tools, applications, algorithms, discoveries, and techniques to the microcomputing 
community. That community may then use, comment upon, improve, and expand these 
items. Many of the things explored within our pages have had major influence in the 
industry. DDJ readers have always been at the forefront of the microcomputer industry, 
providing a wealth of expertise to fuel discussion. Our authors have come primarily from 
within the readership, and it is this reader involvement that has sustained and guided 
the Journal through the years. 

The material currently discussed in our pages is far more complex than it was eight 
years ago, and this has forced some adjustments. We continue to print complete 
listings of useful and innovative software, and to explore developments in areas such as 
languages and operating systems. Maintaining the community discussion of these larger, 
more complex ideas, however, has become increasingly cumbersome. We have periodic- 
ally instituted reader-driven columns to provide more intimate exchange in areas of 
particular reader interest, the latest addition dealing with C and Unix. Most recently, 
we formed a board of referees (again, from within the readership) to help ensure that 
the articles published are as appropriate and accurate as possible. 

From our homespun beginnings with tiny BASIC and tiny computers, we have 
grown with the microcomputing industry and community. Cosmetic changes have 
occurred to improve appearance and marketability. Fiscal considerations have prompted 
us to accept advertising, though we still work to keep the percentage down and to main- 
tain our objectivity. And it was advertising revenue that helped us to begin paying 
authors within the last few months. Each move has been made because we felt it would 
allow us to better perform our function without compromising our traditions. 

Now we have had a new opportunity presented to us — one which can open the 
door for many of the projects that we have longed to pursue, and one which will provide 
added resources with which to continue improving the quality of material we bring to 
you. This new opportunity will allow the tradition of DDJ to continue and allow 
exploration of new vistas. 

We are joining forces with M&T Publishing, Inc., a company dedicated to quality 
and integrity, a company which likes what DDJ has been doing and would like to see it 
done even better. Laird Foshay, the president of M&T Publishing, was part of the DDJ 
staff in the past, and has always been interested in our objectives. People’s Computer 
Company will still own DDJ while M&T will be licensed to publish the magazine. PCC’s 
Executive Director will chair an advisory board set up to ensure that DDJ maintains its 
focus and direction. The current staff, slightly expanded, will continue to produce the 
magazine as usual. 

Among the new faces will be Michael Swaine, who is joining the staff as editor-in- 
chief. Many of you may recognize the name from his three-year tour at InfoWorld asa 
senior editor. A long-time reader of DDJ, Mike is dedicated to the traditions of the 
Journal. A professional journalist and computer enthusiast, Mike is interested in con- 
tinuing to improve the quality and scope of the service we provide. We are excited to 
have him on the team. 

So what does this all mean? Well, it means that we will have a new address. It means 
new projects (perhaps a bulletin board here at the DDJ office) and new opportunities. 
It means better service to our subscribers and better communication links to our readers. 
It means more quality, more information, more of what you buy DDJ for. We will con- 
tinue to explore ways to facilitate the dialogue among the microcomputing community. 
Don’t look for radical changes in the Journal; we have no intention of diverting from 
our long-chosen path. Expect instead a continuation of our gentle evolution. 


Reynold Wiggins 


THIS MONTH’S REFEREES 


A. Gomez, Telecomp, Inc. John K. Taber, IBM 


Kim Harris, Forthright Enterprises Bob Wheeler, Custom Hardware 


Richard Relph 





Dr. Dobb’s Journal (USPS 307690) is published twelve times per year by People’s Computer 
Company, P.O. Box E, Menlo Park, CA 94026. Second class postage paid at Menlo Park, California 
94026 and additional entry points. Address correction requested, Postmaster: send form 3579 to 
People’s Computer Company, Box E, Menlo Park, CA 94026 - 415/323-3111 ISSN 0278-6508 
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Z80* SINGLE BOARD COMPUTER! 


64K RAM — 80 x 24 VIDEO DISPLAY — FLOPPY DISK CONTROLLER 
RUNS CP/M* 2.2! 
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$29.95 | NEW 


(BLANK BOARD WITH 
DATA AND ROM'’S.) PRICE 











BOARD MEASURES 
11%" x 12%" 





GROUP SPECIAL: 
BUY 6 FOR $165! 





ALL ORDERS WILL BE 
PROCESSED ON A STRICT, 

FIRST COME, FIRST SERVED 
BASIS! ORDER EARLY! 












USES EASY 
TO GET PARTS! 









UNBELIEVABLE LOW PRICE!!! GIANT COMPUTER MANUFACTURER’S SURPLUS! 


Recently Xerox Corp. changed designs on their popular 820* computer. These prime, new, 820-1 PC boards were declared as surplus and sold. Their loss is your gain! 
These boards are 4 layers for lower noise, are solder masked, and have a silk screened component legend. They are absolutely some of the best quality PC boards we 
have seen, and all have passed final vendor QC. Please note, however, these surplus boards were sold by Xerox to us on an AS /S basis and they will not warranty nor 
support this part. 

We provide complete schematics, ROM'S, and Parts lists. If you are an EXPERIENCED computer hacker, this board is for you! Remember, these are prime, unused PC 
boards! But since we have no control over the quality of parts used to populate the blank board, we must sell these boards as is, without warranty. You will have to do any 
debugging, if necessary, yourself! 


“CP/M TM OF DIGITAL RESEARCH INC. (CALIF.) 820 TM OF XEROX CORP. Z80 TM OF ZILOG WE ALSO CARRY LS, Z-80, EPROM’S, ETC. SEND FOR FREE CATALOG! 
P. 0. Box 280298 Dallas, Texas 75228 


ADD $2 PER PC BOARD FOR SHIPPING. (USA and Canada) 
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NBASIC, Postprocessed 


Mr. Shammas’ NBASIC program should not be 
confused with the NBASIC program marketed 
by the Computer Toolbox, Inc. — Ed. 


Dear Sirs: 

In reference to the article about 
NBASIC on page 24 of your 1/84 issue, I 
suspect the program has the following 
errors: 


(1) Line 1220. If a variable has ‘REM’ in 
it and it appears on a line before a 
Remark, it will be changed to a single 
quote. 

Line 1120. If a filename is entered 
without a period in it, then line 1120 
never gets executed and the output 
filename FOUT $ never gets defined. 


(2) 


I have several preprocessors and use 
them a lot. I think they should be pro- 
moted more in all computer journals. 

Sincerely yours, 

Peter Ansbacher 

918 South Rustic Road 
Columbia, MO 65201 


Dear DDJ: 

I read the article ‘““NBASIC: A Struc- 
tured Preprocessor for MBASIC” in the 
January 1984 issue. In running the pro- 
gram on a test sample of codel discovered 
a problem with the routine for converting 
remark statements to single quote marks. 
On page 27 the following lines are given 
for the conversion: 


1210 FOR I=1 TON 


1220 P=INSTR (L$ (1), ““REM’’) 
1230 IF P<>0O THEN L$ (I) = 
MID$ (L$ (1) ,1,P-1) + 
«'»? + MID$ (L$ (I) ,P+3) 
1240 NEXT I 


This will replace the first occurrence 
of the string ‘‘REM’’ in each line of text. 
However, the character may appear within 
quoted strings or as part of a variable name. 
It will cause execution problems if the 
variables and strings are changed. Mr. 
Shammas’ program will change the test 
code in Listing One (at right) into the 
text in Listing Two (at right). 

Making a few changes to his code will 
intelligently change the remark state- 
ments. The speed for the conversion is 
about the same as Mr. Shammas’. Delete 
lines 1210 and 1220 and add the lines 
in Listing Three (at right) to the pro- 
gram. Listing Four (at right) shows the 


8 


output from the corrected program. 
This should handle most programs written 
in MBASIC. 

This code may be improved upon, 
however it does work. Thank you for 


such a fine journal. 
Sincerely, 
Keith L. Terrill 
603 Court Street 
Syracuse, New York 13208 





Listing One 


10 REM 

20 REM THIS IS A TEST FOR THE REM PROGRAM 
30 REM 

40 A=1 : B=2 : C=3 : REM THIS IS ANOTHER REM LINE 


50 INPUT “THIS REM SHOULD NOT BE CHANGED”;A 

60 PRINT “THIS REM SHOULD REM BE CHANGED” : 
REM BUT THIS ONE SHOULD 

70 DATA ONE, 1, TWO, 2, REM, REM1, REM2 

80 END 


Listing Two 


10 ' 

20 '' THIS IS A TEST FOR THE REM PROGRAM 
30 =! | 

40 A=1 : B=2 : C=3 : ' THIS IS ANOTHER REM LINE 


50 INPUT “THIS ' SHOULD NOT BE CHANGED”; A 

60 PRINT “THIS ' SHOULD REM BE CHANGED” : 
REM BUT THIS ONE SHOULD 

70 DATA ONE, 1, TWO, 2, ' , REMI, REM2 

80 END 


Listing Three 


1209 QT$=CHR$ (34) 
1210 FORI=1 TON 


1213 P=INSTR (L$ (I) ,“‘REM’’) : IF P=0 THEN 1240 

1216 P1=INSTR (L$ (1) , “DATA”) : IF P1=0 THEN 1222 

i219 IF P>P1 THEN 1240 

1222 P2=1 

Lids P1=INSTR (P2, L$ (I) ,QT$) : IF P1>P OR P1=0 THEN 1237 
1228 P2=INSTR (P1+1,L$ (1), QTS) : IF P2=0 THEN 1240 

1231 P2=P2+1 : IF P2<P THEN 1225 

1234 P=INSTR (P2,L$ (1) ,““REM”’) : IF P=0 THEN 1240 ELSE 1225 
lZas L$ (1)=MID$ (L$ (1) ,1,P-1) +*¢'” +MID$ (L$ (I) ,P+3) 

1240 NEXTI 


Listing Four 


10 

20 =~ 

30. 

40 A=1:B=2: C=3:; 'THIS IS ANOTHER REM LINE 

50 INPUT “THIS REM SHOULD NOT BE CHANGED” ;A 

60 PRINT “THIS REM SHOULD REM BE CHANGED” : 
‘BUT THIS ONE SHOULD 

70 DATA ONE, 1, TWO, 2, REM, REM1, REM2 

80 END 


THIS IS A TEST FOR THE REM PROGRAM 


Dr. Dobb’s Journal, April 1984 





Fussin’ over Sal/80 


Dear Doctor: 

This is to express my heartfelt appre- 
ciation for the very thorough and objective 
review of our SAL/80 package in the 
February issue by Jim Kronman. I’m 
embarrassed to take any exceptions to 
what was written, but... 

One thing I do feel obliged to remark 
on: Jim’s example of code-density com- 
pares two printer drivers, one in naked 
assembler and one in SAL/80. The SAL/80 
driver is 400 bytes larger than the naked 
assembler, which might seem to imply 
that SAL/80 has a run-time package of 
400 bytes. This is not the case. SAL/80 
has no run-time package (and no royalties 
for commercial distribution of code gen- 
erated using SAL/80). 

But then it might seem to imply that 
the code emitted by SAL/80 is 40% larger 
than that obtained by coding in naked 
assembler, which is even worse! I haven’t 
seen the two drivers in question, but I am 
quite certain that there are differences 
between the two which would account 
for all except a maximum of about 100 
bytes plus perhaps 5% of the remaining dif- 
ference. 

There are several UTILITIES in the 
packages which, all taken together, might 
contribute perhaps 100 bytes of excess 
code because of their generality. And the 
test/branch code can typically be squeezed 
by about 5% in the average case. The 5% 
results from the fact that jumps to jumps 
do occur when a forward branch is emit- 
ted in the last group of a loop-body 
(hence, three bytes may be squeezable), 
and that the HL register is saved in certain 
memory-reference comparisons (which 
gives two possibly squeezable bytes if HL 
was inactive at the time). 

The reason I’m making such a fuss 
about this is that SAL/80 is the only struc- 
tured assembly package I know of that 
actually does optimize the test/branch 
code! There is a huge decision-tree in the 
compiler which does all the tricks dear to 
the hearts of assembly-language program- 
mers to avoid writing two conditional 
jumps to implement LE (<=) and GT 
(>) comparisions. Ona branch-by-branch 
basis, SAL/80 emits the tightest code pos- 
sible if the double-registers are to be pre- 
served over the comparison. 

Cordially, 

Steve Newberry 

Protools 

24225 Summerhill Avenue 
Los Altos, CA 94022 


Ackermann Uncovered 


Dear Editor, 

In response to Paul Condon’s ques- 
tion (DDJ No. 88, February 1984, p. 9) 
“Who is Ackermann and where did he 
publish a definition of this function?” the 
following: 
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Wilhelm Ackermann died about 
twenty years ago. A student of David 
Hilbert’s, he was one of the giants in re- 
search in the Foundations of Mathematics 
movement of the early part of this century. 
The function now associated with his 
name first appeared in a research mono- 
graph entitled ‘‘Zum Hilbertschen Aufbau 
der reelen Zalen’’ (‘On Hilbert’s Recon- 
struction of the Real Numbers’’) in Math. 
Annalen, Vol. 99 (1928), pp. 118-133. 

The function was used to disprove 
(by counter-example) a conjecture by 
Hilbert to the effect that the set of real 
numbers definable by infinite sequences 
of what are now called “primitive-recur- 
sive” functions were, in an intuitive sense, 
all the real numbers that exist. Part of 
the argument of supposing this to be true 
was another conjecture that all recursive 
functions are primitive-recursive. The 
Ackermann function is not a primitive- 
recursive function, because it can be shown 
to “grow faster’ than any primitive- 
recursive function. So, by showing that 
there are recursive functions which are 
not primitive-recursive, Ackermann dis- 
proved the first conjecture. Later, in the 
°30s, it was shown by Alan Turing that 


Learn Expert 
Programming 


there are real numbers which are not 
definable even in terms of the most 
broadly generalized form of recursive 
function. 

The original formulation of Acker- 
mann’s was slightly more complex than 
that now used, which is: 


Ack(0, n) = n+1 
Ack(m+1, 0) = Ack(m, 1) 
Ack(m+1, n+1) = Ack(m, Ack(m+1,n)) 


A fuller discussion will be found 
in Hans Hermes’ Enumerability, Decid- 
ability, Computability, Academic Press 
(1965), p. 84, and in Rozsa Peter’s Re- 
cursive Functions, 3rd Revised Edition, 
Academic Press (1967), p. 106. 


Didactically, 

Steve Newberry 
Newberry Microsystems 
24225 Summerhill Ave. 
Los Altos, CA 94022 
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CREATE EXPERT SYSTEMS 


Now, you can learn and create Expert or “knowledge-based” 


computer systems. Move into the 5th 


generation of computer 


programming with the MVP-FORTH EXPERT TOOLKIT. With this 
Simple inference program you can learn and then create and run 
your own Expert programs. Examples are included of Stock Mar- 
ket Analysis, Animal Game and Digital Fault Analyzer. 


The 


MVP-FORTH EXPERT TOOLKIT contains: 


Manual, by Jack Park, with tutorial on Expert 


Systems & Knowledge Engineering, Examples, 
bibliography and source code 


“All About FORTH” by Haydon, MVP-FORTH 
Glossary Disks with MVP-FORTH and 


EXPERT-2 


$100.00 (Calif. Residents add sales tax) 
Specify: (JAPPLE II series CIBM PC or 118” CP/M 


MOUNTAIN VIEW PRESS, INC. 
P.O. Box 4656 
Mountain View, CA 94040 
415/961-4103 
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DR. DOBB'S CLINIC 


by D.E. Cortesi, Resident Intern 


Super Directory Fix 


A while back we told how David 
McLanahan found that the public-domain 
program SD (one of the extended DIR 
programs) failed under CP/M Plus. Ted 
Shapin, of Orange, CA, writes to say that 
“The SD program can easily be fixed to 
give the correct free space under CP/M 
3.0. I fixed my copy with information 
from D. Sternlight. At the label TMOVE 
there is an instruction, LDAX D. A few 
lines further there is a second LDAX D. 
After this instruction insert the line 


ANI OFH ;DROP ARCHIVE FLAGS 


Meanwhile, McLanahan had found 
another solution. A later version of SD, 
SD48, works just fine on CP/M Plus. 


RAM-Drive Needed 


Malcom Fordham, of Bowie, MD, 
has ‘“‘an IBM PC on which I use PL/I-86 
under CP/M-86. I have sufficient memory 
to run the compiler and linker from a 
RAM disk. However, so far I haven’t 
been able to find the software to do this 
under CP/M-86. Do you know of such a 
program?”’ 

We only know that Concurrent 
CP/M for the PC contains RAM-drive 
support out of the box. Does anyone know 
of RAM-drive support for plain old 
CP/M-86? Maybe one of the makers of 
add-on RAM cards supplies one; they usu- 
ally supply the support code for PC-DOS. 


The Great American Merchandiser 


We grumbled loudly about the mer- 
chandising tactics used in our area to 
promote subscriptions to PC magazine: 
a come-on mailed in an envelope that 
emulated an official government mailing. 
Dave Sullivan of Palo Alto, CA, writes 
to say that he got a second one of those 
foolers. ‘‘The latest one was from PC Tech 
Journal. It appears that Ziff-Davis is the 
one exhibiting all the brass. 


“But I have another case of gall and 
guts for your scrapbook,”’ he continues. 
“7 iff-Davis publishes any number of 
magazines that touch on computers. 
One of the cheaper ones is called Com- 
puters and Electronics, and sells for 
$1.75 at the newsstand. The January 
1984 issue has what appears to be the first 
of a new series of articles on assembly 
language programming on the PC. It 
looks promising, and I’ll take all the help 
I can get to learn assembly language. 


‘‘But the last paragraph of the article 
reads as follows: ‘If you want to pursue 
learning assembly language for the IBM PC, 
additional articles that build on this one 
can be read in upcoming issues of our 
sister publication, PC magazine.’ 

“It takes one’s breath away.” 


What’s So Hard About CP/M Plus? 


We’re very fond of CP/M Plus now 
that we have it working well. So fond that 
we are trying it out on other computers 
besides our workhorse S-100 system. Or 
we would be, if anybody could get it 
working. ane 2 

There’s a Tandy Model 4P, an ador- 
able little machine, that is patiently 
gathering dust while it awaits the long- 
delayed arrival of its CP/M Plus support 
from Fort Worth. Tandy promised CP/M 
Plus when they announced the Model 4, 
many months back, and they still haven’t 
delivered. They keep promising it Real 
Soon Now, and they keep not shipping. 

Then consider our brother-in-law 
Bill, whom we had all primed to buy a 
Morrow MD-11 as his first computer, 
largely because it was supposed to come 
with CP/M Plus. Only it won’t, it seems. 
At least the first units of the MD-11 will 
be shipped with plain old CP/M 2. The 
dealer claims ‘‘it’s real hard to make 
CP/M Plus work with the hard disk.’ To 
which we are inclined to say, piffle, but 
then what do we know? 

What goes on here? Bob Blum got 
CP/M Plus working; we got it working. 
David McLanahan has had it for months 
on his Micro Mate (a system that, he says, 
deserves much wider exposure than it 
gets). The pubs are clear and complete; 
the generic parts of the system are re- 
liable; the payoff in extra function is 
large. So what’s the holdup? 


CP/M Plus, Apple, and ALS 


Advanced Logic Systems is a com- 
pany that managed to make CP/M Plus 
work quite early. We have been trying 
out an Apple Ile equipped with the ALS 
CP/M card and CP/M Plus, and it works. 
It isn’t as nice as CP/M Plus on a real 
computer (that should bring some mail), 
but to a large extent that’s the fault of 
the Apple disk drives, not the fault of ALS 
or the software. There just isn’t a whole 
lot you can do with only 170K per drive. 

ALS did skimp on their implementa- 
tion in one area. They completely omitted 
implementing the CP/M Plus character 





I/O table and its character I/O redirection 
features. We can sympathize, because 
character I/O in the Apple is a zoo; there 
are so many possible permutations of 
serial cards, parallel cards, ROM versions, 
and slot numbers that it’s hard to blame 
them for throwing up their hands. How- 
ever, they didn’t help the situation when 
they omitted documenting character I/O 
in any way whatsoever. The ALS bios 
contains some kind of support for the 
AUX device, for instance, but the ALS 
manuals contain not even a-hint as to 
what AUX connects to. 

Since our plans for the IIe involve 
getting MODEM to run on it so we can 
exchange files between it and the big 
system, we had to learn something about 
Apple I/O under the ALS bios. The ALS 
hot-line seems to be overloaded; they re- 
turned one of our calls out of six. The 
one contact we managed to make with 
them didn’t produce any useful technical 
information, but it did give us the pointer 
we needed. 

The ALS support person pointed us 
to a new CP/M Plus User Group being 
formed around the ALS card and the 
Apple. The group is CP/PLUG; its presi- 
dent is Jim Scardelis; and you can reach the 
group at P. O. Box 295, Little Falls, NJ 
07424. Dues are $25 a year (we think, our 
notes are a mess) and the first quarterly 
newsletter was in preparation in January. 

Scardelis gave us some valuable tech- 
nical hints, but told us that if we wanted 
more we should dial into a certain RCP/M 
system run by one of the club members. 
We did and found a gold mine of Apple/ 
ALS material. The system is the Central 
New York Technical RCP/M system, 
Mark Howard SYSOP. It is up from 1700: 
to 0800 hours EST, on (315) 437-4890, 
and is an excellent source of technical 
data. Thanks to Scardelis and Howard, 
we got our IIe running MODEM712 in 
fine shape. 


How It’s Done 


Oh, you wanted to know how you 
do serial I/O on the Apple? Thought 
you’d never ask. When you are running 
under the ALS CP/M card, bank 1 (the 
bank containing the transient program 
area) consists of RAM chips on the ALS 
card itself, Global RAM starts from E000h 
and is also physically on the ALS card. 
The original Apple address space is bank 0. 

That Apple address space, as seen by 
a Z80 program, is remapped. Where in a 
real Apple the various I/O cards are mem- 
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ory mapped beginning at COOOh, the Z80 
sees them at 6000h in bank 0. So what you 
have to do is to find out which memory- 
mapped addresses your Apple serial card 
is supposed to appear at (somewhere in 
COxxh). Under CP/M Plus, it will appear 
at 60xxh in bank 0. 

Now all you have to do is find a 
way to read and write those bytes of 
bank 0 from a program running in bank 1. 
Mark Howard has written a Resident Sys- 
tem Extension (RSX) that will do that 
for you. If it has been installed, you will 
be able to call it with a bank-0O address 
and get back the value of, say, the status 
port of your serial card. You write a 
MODEM 7 overlay to make these calls and, 
voila, you are on the air. Telescoped into 
that “‘voila,”’ of course, are about thirteen 
hours of sweat and hair-pulling. 


Our April Item 


We are in receipt of a letter from one 
T. Heintern of Milpitas, CA. Despite his 
slightly stilted English (Heintern is an 
immigrant from Islandia), we think his 
story will intrigue you. 

“Your readers might be interested in 
the activities of two of my co-workers, 
or really ex-co-workers. I am, and they 
were, employed by a well-known maker 
of magnetic media here in Silicon Valley. 


indication of its size: it was to be of 3.8 
cm diameter. 

‘Well, I was mulling all this over when 
it all fell into place in my mind: CPS, 
Colt, 3.8 cm — a Colt Police Special is a 
38-calibre pistol! Just as ‘Winchester’ 
was the code name for the IBM 3030, 
‘Colt? was a code name for a 3.8 cm 
diskette. Three point eight centimeters 
comes to about one and a half inches, I 
thought. And the light dawned! 

“There flashed before my mind’s eye 
the picture of our production floor: The 
great sheets of mylar spinning off the 
drums and under the punches... the 
thousands of 3.8 cm mylar circles flut- 
tering down in drifts from the 8-inch 


floppies-to-be... our janitors sweeping 
them up... our teams of diligent house- 
wives bundling them into tidy stacks to 
be piled in building-high columns in the 
insulation space of our great Eastern wall. 

“TI dashed outside and rapped on the 
wall — hollow! Our insulation, years of 
3.8 cm floppy-punchings, was gone! 

“I have, of course, notified corporate 
management, who are taking legal advice. 
However, I wish to warn your readers. 
Shun the new diskette format! After all, 
you've already paid for the doughnuts. 
Will you now buy the holes?’’ BB 
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“G-PRO4 blows 
BASE Il away 








We now complete complex applications 


in weeks instead of months. 9¥ 








Says Q-PRO4 user, Richard Pedrelli, President, Quantum Systems, Atlanta, GA 


4&4 As a dBASEII beta test site the past two years, we were reluctant to 
even try Q-PRO4. Now we write all our commercial applications in Q-PRO4. 
We find it to be an order of magnitude more powerful than dBASEII. 

We used Q-PRO4's super efficient syntax to complete our Dental 
Management and Chiropractic Management Systems much faster. Superb 
error trap and help screen capabilities make our finished software products 
far more user friendly, too. | 

In my estimation, any application programmer still using outdated 3rd 
generation data base managers or worse, a 2nd generation language like 
BASIC, is ripping himself off. 99 
_ Runs with PCDOS, MS-DOS, CP/M, MP/M, CP/M86, 

_ MP/M86, TurboDOS, MmmOST, MUSE, and NSTAR. 
it single-user — $395; 8-bit multi-user and 
er — $595; 16-bit multi-user 
} @ Author’s lock up pac 


“At any rate, my ex-colleagues re- 
cently left our beneficent company and 
struck out on their own. They were 
remarkably close-mouthed about what 
they meant to do, but everyone in our 
department was aware that they had been 
spending long lunch hours in the bar at 
the Red Lion Inn in San Jose, in the 
company of various folk who wore the 
kind of urban-western gear that replaces 
a venture capitalist’s ivy-league suit when 
he aims to blend into the crowd ‘out west.’ 
I presume my peers found the money 
they needed, or at any rate the strong 
hint of it, because they tendered their 
resignations just before Comdex. 1 

“‘T next saw them in Las Vegas, where 
they were holding some fairly lush parties 
in a private suite. It was also at Comdex 
that I began to pick up rumors of a new, 
even-smaller, floppy disk format that 
(everyone told me) was about to burst 
on the scene. ‘Forget the three-inchers,’ 
I heard one fellow tell another in the 
midst of the crowd at the Microsoft Win- 
dows demo. ‘It’s almost standardized, 
so it’s dead, right? The big thing is gonna _ 
be the CPS... .’ Here the crowd pressed ae : : _ 
me away from them. Had they said CPS? 7 ~ | 
I wasn’t sure. Later I heard similar refer- s 
ences to a ‘Colt.’ 

‘““Back home I was swapping rumors 
with the other folk who’d attended the 
convention, and they too had heard 
rumors of a new diskette — and that it was 
to be of domestic, not Japanese, manu- 
facture. Best of all, one had picked up an 
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For Q-PRO 4 demonstration, go to nearest MicroAge store or other fine dealer. 


Quic-n-e@asi products inc. 


136 Granite Hill Court, Langhorne, PA 19047 (215) 968-5966 Telex 291-765 


CP/M, MP/M, CP/M86, and MP/M86 are trademarks of Digital Research. TurbOOS, MmmOST. MUSE. NSTAR, MS-DOS and PCDOS are trademarks of Software 2000, TeleVideo Systems, 0.S.M., Molecular Microsoft and IBM, respectively 





CP/M EXCHANGE 


by Robert Blum 








Over the past few months it has been 
increasingly difficult to obtain DRI’s 
permission to publish the application 
notes for CP/M. Apparently a shift in per- 
sonnel at DRI had slowed the approval 
process, and I misunderstood how freely 
I could use the notes for CP/M Plus. None- 
theless, DRI has given us permission to 
continue publishing the application notes 
for CP/M V2.2 and CP/M Plus. This in- 
cludes the CP/M Plus BDOS patch 02, 
published in the February issue of DDJ, 
which dealt with the enhancement of the 
LRU buffering logic of CP/M Plus. It 
has now been approved without changes. 

When I was told of DRI’s decision to 
allow us to continue publishing the appli- 
cation notes I breathed a deep sigh of 
relief. From the onset of our problems I 
was concerned that DRI was beginning to 
develop an attitude, or attitude problem 
depending on how you look at it, of 
pulling back from directly supporting 
their products. Time and again I have seen 
the customer support function inade- 
quately treated by sales organizations and 
otherwise excellent products given unde- 
serving tarnished reputations. I am glad 
that we can continue to depend on DRI 
to directly support their products. Starting 
next month we will begin publishing more 
application notes for CP/M. . 


Compatibility | 

Manufacturers dream of being able to 
move from one product generation to the 
next without any severe software incom- 
patibility. And in most cases they are al- 
most completely successful. This issue 
must have been a painful one at DRI while 
forming a product strategy for CP/M Plus. 
If their product marketing department is 
subject to the type of pressures that I have 
seen in similar industries they were un- 
doubtedly presented with a difficult 
decision. 

DRI was obligated to maintain com- 
patibility with CP/M V2.2. It would have 
been incomprehensible for them to even 
consider breaking the tie with the hun- 
dreds of thousands of V2.2 systems 
currently in use. Any attempt to entice 
the software developers, at this time, to 
convert their packages to a new operating 
system or just to make a few modifica- 
tions would have been out of the question. 
Being the incumbent in a time when cries 
are heard from every street corner that 
this or that new machine or software 
package is better than the others is worth 


re 


more in advertising dollars than most 
companies can muster. 

By having available an upward migra- 
tion path the current user base would be 
able to easily purchase, or upgrade to, the 
latest version of the product. Even though 
not prevalent in the microcomputer in- 
dustry today, we will soon find software 
companies demanding that customers 
maintain their software at current levels 
or pay the price of nonsupport. From the 
manufacturers’ standpoint this is the least 
costly method of introducing a new pro- 
duct because one immediately has a qual- 
ified customer base to sell to. Support 
costs are reduced as well. 

~ CP/M Plus’s compatibility with older 


versions of CP/M is maintained at a system 


level. All the former BDOS calls were 
maintained, although in many cases extra 
data or status information is made avail- 
able for the programmer’s use. To expand 
the system many new calls were im ple- 
mented, but again, their use is entirely up 
to the programmer. This is as far as DRI 
will go in saying that CP/M Plus is com- 
patible with V2.2. In the System Guide 
they refer to CP/M Plus as simply being 
“upward-compatible.” 

In V2.2 it was common practice to 
“hook” into the BIOS table to enable a 
program to trap status codes and other 
information before the BDOS had a 
chance to act upon it. Under CP/M Plus 
this practice is frowned upon and is largely 
unnecessary due to the new BDOS error 
modes and the additional status informa- 
tion returned from each function. Pro- 
grams that do make use of the old error 
trapping technique will continue to run 
without any problems provided that sys- 
tem alteration does not go beyond the 
console and list BIOS vector points. Since 
these were the most-used points of altera> 
tion, DRI specified that they remain 
available as before. 

The main reason for this restriction 
is the address extracted from the BIOS 


jump table may, and probably will not, 
point to a real memory address. Keep in 
mind that in virtual memory systems (a 
banked CP/M Plus system falls into this 
category) any memory address may or may 
not currently reside in the processor’s 
physical address space. Depending on the 
hardware manufacturer the determination 
of whether a memory address is real or 
virtual at any moment is a combined 
effort of both hardware and software. 

In the case of CP/M Plus, some logic 
sections and table structures are required 
to be in real (common) memory at all 
times due to performance and memory 
conflict considerations. The majority of 
the system, however, will be virtual. When 
an application program makes a call to the 
BDOS to request a system service, a check 
is made to determine whether the re- 
quested portion of the system is in real 
memory. If not, a portion of the applica- 
tion program is made virtual and the 
missing section of the operating system is 
switched to occupy the real memory 
address space. As complicated or confusing 
as this may seem, it is handled quite simply 
in the CP/M Plus software and should not 
be intimidating. 7 

To better visualize the BIOS routines 
that are in virtual memory refer to Listing 
One (page 14). All the routines pointed to 
by an address constant marked by a 
double quote are in virtual memory. You 
may wish to also refer back to this column 
in the July and August 1983 issues. In 
those columns I talked more about virtual 
memory systems and how they are gen- 
erally implemented on microcomputers 
and particularly under CP/M Plus. 

~ Most of the programs I have tested 
under CP/M Plus ran without any prob- 
blems. I have found a couple of very pop- 
ular programs that refused to cooperate 
and caused some totally unexpected and 
very difficult-to-find system problems un- 
til I discontinued their use. On the other 
hand, some programs that I would have 


Figure 
Function 10 Console Input Buffer 
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bet wouldn’t work, do. The only sugges- 
tion that I can make to you is to ask your 
dealer or the manufacturer whether their 
programs will work under CP/M Plus. 
Listen to their answers very closely for 
key phrases such as “‘it should”’ or “‘I don’t 
see why it wouldn’t.” If you are given an 
answer of this type pursue the subject 
further by ‘asking whether a test was 
actually run and if so on what machine. I 
think you will find that, when backed to 
the wall, most of the manufacturers’ 
representatives will admit that no direct 
experience is available. This is not to say 
that what you are looking to buy won’t 
work; chances are it will. Just protect 
yourself by making sure that you can re- 
turn the package if some problem does 
exist. 


BDOS Function 10: 
Vastly Improved 

The read console buffer function, 
BDOS function 10, has been vastly im- 
proved in CP/M Plus. It will now not only 
automatically input and edit a string from 


the console, but will also display the string 
buffer before going into edit mode. 

The format of the input buffer 
pointed to by the DE register pair is 
unchanged from V2.2 (refer to Figure, 
page 12). The single byte, MX, is the 
maximum number of characters that can 
be placed into the buffer. And the single 
byte, NC, is the count of the number of 
characters that have been input to the buf- 
fer. The actual data that has been entered 
into the buffer follows the NC byte. 
During the data entry operation the full 
keyboard editing features of CP/M Plus 
can be used to adjust the input string. 

If register pair DE is set to zero prior 
to calling the BDOS, function 10 assumes 
that an initialized input buffer is located 
at the current DMA address. This allows a 
program to put a string on the console 
for the user to edit. To initialize the input 
buffer, place the default string into the 
buffer following the NC byte terminated 
by a binary zero. When initializing the 
input buffer with a default string it is not 
necessary to set the NC byte to the num- 
ber of characters in the buffer. 


When a program calls the function 10 
routine with an initialized buffer, function 
10 operates as if the user had typed in the 
string. A search is made through the buffer 
for the binary zero terminator byte in 
order to count the number of active char- 
acters. This count is then placed into the 
NC field. The routine’s attention is then 
tuned to allow more data to be entered 
from the console. At this point the user is 
in full keyboard editing mode and can 
enter more data or edit the default string. 
In any case hitting return will immediately 
send the string to the program. 

As now programmed, function 10 
could greatly assist in those programs that 
offer a default value to the user as the first 
choice. Refer to Listing Two (page 16) for 
an example of a program that makes full 
use of function 10’s expanded capabilities. 
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CP/M Exchange (Text begins on page 12) 


Listing One 


; bios jump vector. 


we we 


entry points. 


all bios routines are invoked by calling these 


boot ; initial entry on cold start 
wboot - reentry on program exit, warm start 
const ; return console input status 
conin ; return console input character 
conout ; send console output character 
list ; send list output character 
auxout ; send auxiliary output character 
auxin ; return auxiliary input character 
home ; set disks to logical home 

seldsk > select disk drive 

settrk ; set disk track 

setsec ; set disk sector 

setdma ; set disk i/o memory address 

read ; read physical block(s) 

write ; write physical block(s) 

listst ; return list device status 

sectrn : 


translate logical to physical sector 


(Continued on page 16) 


ES 


C3 0000" ?boot: jp 
C3 006C' ?wboot: jp 
63:0i7 7 = tconst: ip 
63 0192". fconin: jp 
C3 OODA' ?cono: jp 
C3- 0086": Tlist: ip 
C3 OOEO' ?auxo: ip 
C3 0198" ?auxi: jp 
C3 O06E" ?home: ip 
C3 003F" ?sldsk: ip 
C3 0071" ?sttrk: jp 
C3 0077" ?stsec: ip 
C3 007D" ?stdma: ip 
C3 0094" ?read: ip 
C3 OOAA" ?write: ip 
GS. 0112"  ?iists: jp 
C3 0089" ?sctrn: ip 
14 
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COHERENT" IS SUPERIOR TO UNIX" 


AND IT’S AVAILABLE TODAY 
ON THE IBM PC. 


Mark Williams Company hasn’t just taken a mini-computer 
Operating system, like UNIX, and ported it to the PC. We 
wrote COHERENT ourselves. We were able to bring UNIX 
capability to the PC with the PC in mind, making it the most 
efficient personal computer work station available at an 
unbelievable price. | 


For the first time you get a multi-user, multitasking operating 
system on your IBM PC. Because COHERENT is UNIX- | 
compatible, UNIX software will run on the PC under 
COHERENT. : . 


The software system includes a C-compiler and over 100 utili- 
ties, all for $500. Similar environments cost thousands more. 


COHERENT on the IBM PC requires a hard disk and 256K 
memory. It’s available on the IBM XT, and Tecmar, Davong 
and Corvus hard disks.. 


Available now. For additional information, call or write, 


Mark Williams Company 
1430 West Wrightwood, Chicago, Illinois 60614 
312/472-6659 - 


Mark 
Williams 
Company 





{it 





COHERENT isa trade mark of Mark Williams Company. 
*UNIX is a trade mark of Bell Laboratories. 


Circle no. 67 on reader service card. 


CP/ Wi Exchange (Listing Continued, text begins on page 12) 
Listing One 


C3 
C3 
C3 
C3 
C3 


C3 
C3 
C3 


C3 
C3 
C3 
C3 
C3 


0106' 
017D' 
010C' 
00D2' 
0000* 


O0OD6' 
OOCB" 
OOCF" 


0000* 
0000* 
0250' 
0085" 
0000* 


?conos: 
?auxis: 
? auxos: 
?dvtbl: 
?devin: 


?drtbl: 
?mltio: 
?flush: 


?mov: 
?tim: 
?bnksl 
?stbnk 
?xmov: 


Listing Two 


bdos 


set dma 
read buffer 


buffer 


stack 


-z80 
equ 


equ 
equ 


1d 


ld 
ld 
call 


1d 
ld 
call 


rst 


equ 

defb 
defb 
defb 
defb 


defs 
equ 


end 


jp conost 
IP auxist 
jp auxost 
ip devtbl 
jp ?cinit 


we we we we we 


return 
return 
return 
return 
change 


console output status 

aux input status 

aux output status 

address of device def table 
baud rate of device 


jp getdrv 
jp multio 


jp flush 

ip ?move 

jp ?time 

jp bnksel 
ip setbnk 
ip ?xmove 
5 

26 

10 

sp, stack 


c,set dma 
de , buffer 
bdos 


c,read buffer 
de ,0 
bdos 


- return address of disk drive table 
; set multiple record count for disk i/o 
; flush bios maintained disk caching 


block move memory to memory 

signal time and date operation 

select bank for code execution and default dma 
select different bank for disk i/o dma operations 
set source and destination banks 


we we we we we 


End Listing One 


-BDOS function call entry point 


-set DMA address function code 
-read/edit console buffer function code 


sset a local stack 


;set DMA address to input buffer 


3 
b 


3 
> 


sedit string in buffer 


o* 
b | 


ox 
3 


return to CP/M 
;maximum number of characters allowed 
snumber of active characters 


sinitial string - zero delimited 
;room for maximum input length 


End Listings 


ee eR en ee 
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programmers 
READ THIS... 


NOW, | KNOW | CAN MAKE BIG MONEY WRITING AND SELLING MY 
PROGRAMS. THIS BOOK TOLD ME WHAT TO WRITE — WHO TO SELL 


[T TO — THOUSANDS OF NAMES, ADDRESSES, IDEAS, GUIDELINES. 
SOFTWARE WRITER’S MARKET”’ IS A FANTASTIC BOOK! 





















WHO TO SELL YOUR PROGRAMS TO 


THOUSANDS OF COMPANY NAMES AND ADDRESSES, : 
WITH DETAILED LISTINGS SHOWING: 


(1) WHAT PROGRAMS PUBLISHERS ARE LOOKING om 


(2) HOW THEY WANT YOU TO SUBMIT YOUR Posy eights 
(3) HOW MUCH THEY PAY — AND WHEN! 


100 CATEGORIES — FROM “ACCOUNTS a ee 
TO “GAMES” TO “VIDEO CONTROL” PROGRAMS 
HOW TO WRITE CLEAR DOCUMENTATION 


‘“Copy Today! 


Enclose check or money order 
for $19.95 (No C.0.D.’s) to: 


IPF Publications PCG ES Be See ao Fe ae Po Se ew ee 
146 Country Club Lane 
Pomona, NY 10970 
(914) 354-5585 


Circle no. 57 on reader service card. 





Optimizing Strings in C 





many advantages: flexibility, speed, 
and portability. Routines that could 
take months in assembler can be written 
and tested much more easily in C. It sup- 
ports true recursion and produces as- 
sembler language source, which allows 
users to optimize portions of their code. 
Optimization is the process of im- 
proving the efficiency of a program; i.e., 
getting more bang for your buck, whether 
the buck is time or memory. Basically, 
you try to make the program smaller, 
faster, or both, although you sometimes 
have to trade size for speed or vice versa. 
Optimization can apply to one particular 
program or to a group of programs. One 
problem with optimization is that it takes 
both time and effort. 
The following optimization approaches 
have certain advantages and disadvantages: 


7 he C programming language offers 


Improving the compiler output by im- 
proving the compiler 

Improving the compiler output by 
tinkering 

Improving the individual program’s 
algorithm 

Rewriting entire routines in assembler 


To improve the compiler output, 
you must have the source for the compiler 
and must know enough to improve the 
code generation logic. If you have those 
skills, please try it and publish the results. 
For the rest of us mere mortals, however, 
this is a foolhardy exercise that can bring 
disaster. Besides, it takes a lot of time. 

C programmers have another alter- 
native: to recognize a commonly used 
pattern of code that can be improved and 
to write a program that tinkers with the 
compiler’s output to improve that part of 
the code. This approach is very similar to 
the optimization portion of the Small-C 
compiler. 

Improving an individual program by 
rewriting all or part of it is a perfectly valid 
approach, except that the payback doesn’t 
go any farther. The rest of your programs 
are still the same. 

The final approach is write some com- 
monly used routines in assembler. This 


by Edward McDermott 


Edward McDermott, 12 Manor Haven Rd., 
Toronto, Ontario, Canada M6A2H9. 


will speed things up and you can generalize 
this approach to all your programs by 
recompiling them. It improves both execu- 
tion speed and size (to. some extent). The 
problem is that these routines are no 
longer portable from machine to machine. 

If you choose this last approach, its 
success depends on which functions you 
select for optimization. The ideal candi- 
dates would have the following char- 
acteristics: 


Contains tight loops 
Is used by almost every program 
Is small enough to easily rework 


C is an ideal language for editors, 
compilers, operating systems and so 
on; that was what C was designed for. Al- 
though every one of these applications 
involves a good deal of string handling, C 
has no string manipulation verbs. All 
string handling is done on a character- 
by-character basis, often by very small 
functions, which contain some very tight 
loops. 

Another aspect to consider is any 
special commands of the CPU you are 
using. Can any functions built into the 
chip be taken advantage of by another 
means? The Z80 chip has a few commands 
that are unavailable on the 8080, spe- 
cifically: LDIR, LDDR, LDI, LDD, CPIR, 
CPDR, CPI, and CPD. Each of these in- 
structions is the equivalent of anumber of 
8080 instructions and, properly used, can 
be substituted for anumber of instructions 
nC. 

For example, the LDIR command 
takes the contents of the memory position 
pointed at by the HL register pair, trans- 
fers those contents to the memory posi- 
tion specified by the DE register pair, 
increments HL and DE, and decrements 
BC until the BC register pair is zero. Per- 
haps this makes it a little clearer: 


while (--BC) *DE++ = *HL++; 


Does that seem familiar? It is, in fact, 
almost identical to the STRCPY function 
in The C Programming Language by 
Kernighan and Ritchie. The principal 
difference lies in the delimitation of the 
loop. 


If you run on a Z80 chip, string mani- 
pulation is a natural choice. But the ques- 
tion that haunts all optimization efforts 
still remains: Is the payback worth the 
effort? To try and answer that question 
we chose to optimize the following four 
functions: 


STRCPY - copy a string from one place 


to another 
STRINIT - initialize a string to a specified 
value 


STRLEN - find the length of a string 


CMATCH - find a character within a string 

Since the Small-C compiler produces 
assembler code, our first approach was to 
review its output. In small loops the com- 
piler produces code that does not opti- 
mally use the registers, so we completely 
rewrote the functions; most of the speed 
gain can be attributed to this rewrite. This 
optimization should apply to 8080-based 


machines as well. 
The accompanying Listing (page 20) 


gives the new routines in Z80 code. We 
chose Z80 both to take advantage of its 
special OP codes and to emphasize the 
major disadvantage of this type of optimi- 
zation: the loss of portability. Readers, 
however, can adapt these routines to the 
8080 environment fairly easily, for use 
with C or other languages. 

Usually you judge the success of an 
optimization on the following criteria: 


Is it faster and if so how much? 
Is it smaller and if so how much? 


Does it suggest other methods of 
improvement? 


Was it worth the time and effort to 
do? 


Faster 


We acquired the iieuania here by exe- 
cuting each command 10,000 times on a 
string of 30 characters. The first set of 
timings is for the driver program, without 
any string manipulation at all, to see the 
impact of the code used to handle the 
test. The second set is using C routines, 
compiled under the Small-C compiler, 
version 2. The third set of timings is for 
the same program but using the assembler 
routines. The timings are as follows: 


Null test 3 sec. 
Small C (v2) 195 sec. 
Assembler 16 sec. 


We also compared the CMATCH rou- 
tine to the rest, since this routine is sig- 
nificantly longer and more involved in 
both languages: 


Null test 1 sec. 
Small C (v2) 90 sec. 
Assembler 6 sec. 


If you remove the constant load of 
the code to drive the test program, you 
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find the new routines are 14.8 times faster. 
Skeptics can ignore the impact of the 
loops and still end up with new routines 
that are 12.2 times faster. 


Smaller 


The memory saving were illustrated 
by the following: 


Language Size 
Small C(v2) 254 bytes 
Assembler 116 bytes 


The assembler code for the four rou- 
tines was less than half the size of the 
comparable C code. However, saving 138 
bytes is not going to make anyone jump 
for joy. With fine tuning, this figure could 
be improved, but once again it is a matter 
of cost versus gain. 


Other Improvements 


Our first thought was to optimize 
other small routines for handling strings. 
But part of the savings had come from 
using all three register pairs and keeping 
the values in the registers throughout the 
loop. Where the number of parameters 
exceeds three (one for each of BC, DE, and 
HL register pairs), the potential savings 
drop and the effort begins to rise. 

Another improvement would be using 
these optimized routines as heavily as 
possible. That has some major implications 
for the style of C code a programmer uses. 
You would have to build up your func- 
tions out of smaller optimized functions 
instead of writing complex character-by- 
character processes. 

Some other potential candidates for 
optimization are as follows: 


Convert to upper case and convert to 
lower case 


Find string 
Compare string 
Extract part of a string 


All string manipulation functions 
should not necessarily be optimized. The 
gain in speed through improving screen 
and printer routines is hidden by the 
limited transmission speed to these devices 
for most small systems; you won’t see any 
improvement. Most likely your disk I/O 
routines are already in assembler to inter- 
face the language to your particular 
operating system. 

By the way, the STRCPY and 
STRINIT functions were designed to re- 
turn the address of the resulting string. 
This may seem an unnecessary complica- 
tion, but it does allow the programmer to 
nest functions within each other when 
writing the C code. 


Time and Effort 

Whether the optimization was worth 
the time and effort depends on how you 
value your time and on your requirements 
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for speed and/or memory. My personal 
expectation for speed improvement was 
somewhere in the order of five times faster. 
The improvement, however, was between 
12 and 15 times faster. Since creating 
these routines, testing them, correcting 
them, and correcting them again resulted 
in more speed than I expected, the optim- 
ization proved successful. You have to 
decide if it’s worth your time to type these 
routines in and use them in your code. 
The improvement you can achieve 
by converting small routines into as- 
ssembler is significant, if not startling. 
Leaving the original C routine as a com- 


Editor’s note on some enhance- 
ments: Any comparison of the accu- 
mulator to 0 can be replaced with an 
OR A command, and any initialization 
of the accumulator can be replaced 
with an XOR A command. This im- 
proves speed and reduces memory 
requirements. 

Some places where one could 
make the code tighter are perhaps less 
obvious. In lines 50-54 of the listing, 
the following command sequence could 
replace the existing ones: 


ID A,B 
OR B 
JR Z,STRIN2 


Likewise, lines 97-101 could be re- 





ment in the assembler code lets you com- 
bine the best of both worlds: the most 
efficient routine and the original portable 
routine. Any small, tight looping function 
that is concerned with three or fewer 
variables and is commonly used is an ideal 
candidate. However, to get the most out 
of such an optimization, you must go on 
to build more complex functions out of 
these smaller ones. BBJ 


(Listing begins on page 20) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 192. 


placed with 

LD AL 

OR C 

JR Z,CMA] 
and lines 103-106 could be replaced 
with 

LD A,B 

OR. ¢. 

JR NZ,CMAX1 

In lines 104 and 106, the author 
used JP instructions instead of JRs. 
While JR is probably the better in- 
struction, JP is safer in the case of the 
author’s assembler and if one is un- 
certain about the distance to the branch 


location. In this case, JR should work 
quite well. 


WHEN IT COMES TO THE 
TWO BEST WORD PROCESSORS 


THE DIFFERENCES 


difference: price.* Because NewWord, with its built-in Merge Print, 
nd and file compatible with MicroPro’s WordStar®/MailMerge®. 
advanced design features like Unerase deleted text, automatically 
1es, multiple line Headers and Footers, and on-screen display of boldfac- 
ng. NewWord is demonstrably superior on your | dot matrix printer, support- 
n and variable line heights/character widths. 


 *Manufaciurer's suggested « 


son. onions: is lighter only on your checkbook. 


Call us today, toll-free 800- 832-2244 2 
(In California, call 800-732-2311) 


~ ROCKY MOUNTAIN SOFTWARE SYSTEMS 


X . 1280-C NEWELL AVE., SUITE 1052; WALNUT CREEK, CA 94596 | 


WordStar and d Mailterge are registered trademarks of MicroPro international, inc. NewWord anc Newstar are trademarks of Newstar Software, inc. 
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SOFTWARE DESCRIPTIONS 


TPM (TPM 1) - $80 A 280 only operating system which is 
capable of running CP/M programs. Includes many features not 
found in CP/M such as independent disk directory Partitioning for 
up to 255 user partitions, space, time and version commands, date 
and time, create FCB, chain program, direct disk 1/0, abbreviated 
commands and more! Availabie for North Star (either single or 
double density), TRS—80 Model | (offset 4200H) or II, Versafloppy 
|, or Tarbell |. 


TPM-Il -$125 An expanded version of TPM which is fully CP/M 
2.2 compatible but still retains the extra features our customers 
have come to depend on. This version is super FAST. Extended 
density capability allows over 600K per side on an8’ disk. Availa- 
ble preconfigured for Versafloppy || (8” or 5"), Epson QX-10, 
Osborne Il or TRS-80 Model I. 


CONFIGURATOR | 
This package provides all the necessary programs for 
customizing TPM for a floppy controller which we do 
not support. We suggest Ordering this on single den- 
sity (8SD). 

Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
($FREE), MACRO I! ($100). LINKER ($80). DEBUG | ($80). 
QED ($150). ZEDIT ($50). TOP | ($80). BASIC | ($50) and 


BASIC 1! ($100) NOW $250 


$815 Value 


CONFIGURATOR II 
Includes: TPM-II ($125), Sample PIOS (BIOS) SOURCE 
(SFREE). MACRO 1! ($100). MACRO III ($150). LINKER 
($80), DEBUG | ($80), DEBUG I! ($100). QSAL ($200). QED 
($150), ZTEL ($80), TOP 1! ($100). BUSINESS BASIC 
($200) and MODEM SOURCE ($40) and DISASSEMBLER 


a NOW $400 


$1485 Value 


MODEL | PROGRAMMER 
This package is only for the TRS-80 Model |. Note: 
These are the ONLY CDL programs available for the 
Model |. It includes: TPM | ($80). BUSINESS BASIC 
($200), MACRO | ($80), DEBUG | ($80). ZDDT ($40). ZTEL 
($80), TOP | ($80) and MODEM ($40) 

$680 Value NOW $1 75 


MODEL || PROGRAMMER 
This package is only for the TRS-80 Model II. 
It includes: TPM-Il ($125), BUSINESS BASIC ($200). 
MACRO II ($100). MACRO Ill ($150). LINKER ($80). 
DEBUG | ($80), DEBUG I! ($100). QED ($150). ZTEL ($80). 
TOP Il ($100), ZDDT ($40), ZAPPLE SOURCE ($80). 














































DEVELOPER | 
Includes: MACRO | ($80). DEBUG | ($80). ZEDIT ($50). 
TOP | ($80). BASIC | ($50) and BASIC 1! ($100) 

$440 Value NOW 50 


DEVELOPER II 
Includes: MACRO II ($100), MACRO II! ($150), LINKER 
($80), DEBUG ! ($80), DEBUG I! ($100), BUSINESS BASIC 
($200), QED ($150), TOP Il ($100), ZDDT ($40), ZAPPLE 
SOURCE ($80), MODEM SOURCE ($40), ZTEL ($80), and 
DISASSEMBLER ($80). 

NOW $350 


$1280 Value 


DEVELOPER III 
Includes: QSAL ($200). QED ($150), BUSINESS BASIC 


($200), ZTEL ($80) and TOP I! ($100) 
$730 Value NOW $300 


COMBO 
Includes: DEVELOPER II ($1280). ACCOUNTING PACK- 
AGE ($300). QSAL ($200) and 6502X ($150) 





























$1930 Value NOW $500 


LINKER - S80. A linking loader for handling the linkable 
modules created by the above assemblers. 


DEBUG | - s80. A tool for debugging Z80 or 8080 code. 
Disassembles to CDL/TDL mnemonics compatible with above 
assemblers. Traces code even through ROM. Commands include 
Calculate. Display. Examine. Fill. Goto. List. Mode. Open File, Put. 
Set Wait. Trace. and Search. 


DEBUG II - $100. A superset of Debug |. Adds Instruction 
Interpreter. Radix change. Set Trap/Conditional display. Trace 
options. and Zap FCB. 


6502X - $150. A 6502 cross assembler. Runs on the Z80 but 
assembles 6502 instructions into 6502 object code! Similar features 
as our Macro assemblers. 


QSAL - $200. A SUPER FAST 280 assembler. Up to 10 times 
faster than conventional assemblers. Directly generates code into 
memory in one pass but also to offset for execution in its own 
memory space. Pascal like Structures: repeat...until. if..then...else. 
while...do. begin...end. case...of. Multiple statements per line. 
special register handling expressions. long symbol names, auto 
and modular assembly. and more! This one uses ZILOG Mnemonics. 


QED - S150. A screen editor which is both FAST and easy to 
learn. Commands include block delete. copy. and move to a 
named file or within text. repeat previous command. change. 
locate. find at start of line. and numerous cursor and window 
movement functions. Works with any CRT having clear screen. 
addressable cursor, clear to end of line, clear to end of screen, and 
80X24. 


ZTEL - $80. An extensive text editing language and editor 
modelled after DEC’s TECO. 


ini i iented. Works 
ZEDIT - $50. A mini text editor. Character/line orien 
well with hardcopy terminals and is easy to use. Includes macro 


command capability. 


! | Is, 
TOP I - $80. A Text Output Processor for formatting manua 
documents. etc. Interprets commands which are entered into the 
text by an editor. Commands include justify. page number, head- 
ing. subheading. centering. and more. 


TOP Il - $100. A superset of TOP |. Adds: embedded control 
characters in the file. page at a time printing. selected portion 
printing. include/merge files. form feed/CRLF option for paging. 
instant start up, and final page ejection. 


ZDDT - $40. This is the disk version of our famous Zapple 
monitor. It will also load hex and relocatable files. 


ZAPPLE SOURCE - $80. This is the source to the SMB 
ROM version of our famous Zapple monitor. It can be used to 
create your Own Custom version or as an example of the features 
of our assemblers. Must be assembled using one of our assemblers. 


MODEM -Acommunication program for file transfer between 
systems or using a system as a terminal. Based on the user group 
version but modified to work with our SMB board or TRS-80 
Models | or Il. You must specify which version you want. 


MODEM SOURCE - 40. For making your own custom 


version. Requires one of our Macro Assemblers. 


DISASSEMBLER - $80. Does bulk disassembly of object 
files creating source files which can be assembled by one of our 


assemblers. 
HARDWARE 


S-100 — SMB II Bare Board $50. “System Monitor Board” for 
S-100 systems. 2 serial ports, 2 parallel ports, cassette inter- 
face, 4K memory (ROM. 2708 EPROM. 2114 RAM). and power 
on jump. When used with Zapple ROM below. it makes putting 
a S-100 system together a snap. 

Zapple ROM $35, Properly initializes SMB 1/1! hardware, pro- 
vides a powerful debug monitor. 

IBM PC — Big Blue 280 board $595, Add 280 Capability to your 
IBM Personal Computer. Runs CP/M programs but-does not 
require CP/M or TPM. Complete with 780 CPU, 64K add on 
memory. serial port, parallel port, time and date clock with 
battery backup, hard disk interface. and software to attach to 
PC DOS and transfer programs. Mfr'd by QCS. 

90% Discount on all COL software ordered at the same time as 
a Big Blue (and for the Big Blue). 

APPLE II — Chairman 280 $345, Add 280 Capability to your 
Apple Il/ll Plus computer. Runs CP/M programs with our 
more powerful TPM. Includes 64K memory add on (unlike the 
competition this is also useable by the 6502/DOS as well as 
the Z80), TPM, QSAL assembler, QED Screen Editor, and Busi- 
ness Basic. Mfr'd by AMT Research. 

Apple Special $175, Buy the Apple Z80 Developer at the same 
time as the “Chairman” and pay only $175 instead of $325. 


APPLE Z80 DEVELOPER 

Includes: 6502X ($150), MACRO 1! ($100), MACRO III 
($150), QSAL ($200), QED ($150), LINKER ($80), DEBUG | 
($80), DEBUG 1! ($100), ZDDT ($40) and BUSINESS 


BASIC ($200) 
NOW $325 









VALUE: $1250 
$175 when purchased with AMT “Chairman” Board 














MODEM ($40). MODEM SOURCE ($40) and DISAS- DISK FORMATS 


ORDERING INFORMATION: 








SEMBLER ($80) NOW $375 When ordering software specify which disk format you would like. VISA/MasterCard/C.0.D. 
$1445 Value CODE DESCRIPTION Call or Write With Ordering 
aa Et es 8SD 8" IBM 3740 Single Density (128 bytes/26 sectors/77 tracks) : So 
BASIC | - $50, a 12K basic interpreter with 7 digit precision. 80D 8" Double Density (256 bytes/26 sectors/77 tracks) Information... = 
BASIC II - $100. A 12 digit precision version of Basic |. 8XD 8" CDL Extended Density (1024 bytes/8 sectur/77 traceks 616K 


BUSINESS BASIC - $200. A full disk extended basic with 
random or sequential disk file handling and 12 digit precision 


OEMS: 


5SD 9.25" Single Density (TRS80 Model |. Versafloppy |, Tarbell 1) 


(even for TRIG functions). Also includes PRIVACY command to 5EP 9.25" Epson Double Density Many CDL products are available for 
protect source code. fixed and variable record lengths, simultane- 5PC 5.25" IBM PC Double Density licensing to OEM S. Write to Carl 

Ous access to multiple disk files, global editing, and more! 5XE 5.25" Xerox 820 Single Density Galletti with your requirements. 
ACCOUNTING PACKAGE - $300, Written in Business 50S 9.25" Osborne Single Density =4 ; 

Basic. Includes General Ledger. Accounts Receivable/Payable. 5ZA 5.25” Z80 Apple (Softcard compatible) Dealer Inquiries Invited. 


and Payroll. Set up for Hazeltine 1500 terminal. Minor modifica- 


tions needed for other terminals. Provided in unprotected source TPM INFO When ordering TPM | or Il. in addition to Disk Format. please specify one of the following codes: 


form. CODE DESCRIPTION 

MACRO | - $80. A 280/8080 assembler which uses CDL/TDL TPM I: NSSD/H = North Star Single Density for Horizon 1/0 

mnemonics. Handles MACROs and generates relocateable code. NSSD/Z North Star Singte Density for Za ple 1/0 

Includes 14 conditionals. 16 listing controls. 54 pseudo-ops. 11 NSDD/H North Star ah Density tar ad 1/0 For Phone Orders ONLY Call Toll Free... 


(Except Pa.) 


arithmetic/logical ops. local and global symbols. linkable module 
generation, and more! 


MACRO II - $100. An improved version of Macro | with 


NSOD/Z North Star Double Density for Zapple 1/0 
TRS80- — TRS-80 Model | (4200H Offset) 


1-(800) 458-3491 


expanded linking capabilities and more listing options. Also inter- TRS80!l_ ~— TRS-80 Model Il Ask For Extension #15 

nal code has been greatly improved for faster more reliable vig Versafloppy 1 8 A 

operation. VIS Versafloppy | 9.25 For information and Tech Queries call 
MACRO III -$150. An enchanced version of Macro Il Internal TPM-II: — VII8 Versafloppy Il 8 (XD) (609) 599-2146 

buffers have been increased to achieve a significant improvement Vil5 Versafloppy II 5.25 

in speed of assembly. Additional features include line numbers. TRS80I1_ = TRS-80 Model I! (XD) 


cross reference. compressed PRN files. form feeds. page parity. 
additional pseudo-ops, internal setting of time and date. and 
expanded assembly-time data entry 


Prices and Specifications Subject to change without notice. 
TPM. 280. CP/M. TRS80 are trademarks of CDL. Zilog. DRI and Tandy respectively. 


Computer Design Labs ,. . 
342 Columbus Avenue/Trenton, NJ 08629 


Circle no. 8 on reader service card. 
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Six Times Faster! 


Super Fast Z80 Assembly Language Development Package 






e Complete Zilog 
Mnemonic set 

e Full Macro facility 

© Plain English error 
messages 

e One or two pass 
operation 

© Over 6000 lines/minute 

e Supports nested 
INCLUDE files 

e Allows external bytes, 
words, and expressions 
(EXT1 * EXT2) 

© Labels significant to 16 
characters even on 
externals (SLR Format 
Only) 

© Integral cross- reference 

® Upper/lower case 
optionally significant 


Z80ASM 


¢ Conditional assembly 

e Assemble code for 
execution. at another 
address (PHASE & 
DEPHASE) 

e Generates COM, HEX, 
or REL files 

e COM files may start at 
other than 100H 

e REL files may be in 
Microsoft format or 
SLR format 

e Separate PROG, DATA 
& COMMON address 
spaces 

e Accepts symbol defini- 
tions from the console 

e Flexible listing facility 

includes TIME and 

DATE in listing (CP/M 

Plus Only) 












e@ Links any combination 
of SLR format and 
Microsoft format REL 
files 

e One or two pass 
operation allows output 
files up to 64K 

® Generates HEX or COM 

files 












DATA, and COMMON 
loading addresses 
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SLRNK 


e User may specify PROG, 


© COM may start at 
other than 100H 
© HEX files do not fill 


empty address space. 
e Generate inter-module 


cross-reference and 
load map 


e Save symbol table to 
disk in REL format for 


use in overlay 
generation 


© Declare entry points 
from console 


available 


© The FASTEST Micro- 
soft Compatible Linker 





End Listing 




















e Complete Package Includes: Z80ASM, SLRNK, SLRIB 
- Librarian and Manual for just $199.99. Manual only, $30. 





¢ Most formats available for Z80 CP/M, CDOS, & TURBODOS 
¢ Terms: add $3 shipping US, others $7. PA add 6% sales tax 


L R__Systems 


Circle no. 55 on reader service card. 


For more information or to order, call: 


1-800-833-3061 


In PA, (412) 282-0864 


Or write: SLR SYSTEMS 
1622 North Main Street, Butler, Pennsylvania 16001 
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Expert Systems 
and the Weather 





omebody famous once said: “This 

is gonna get mein trouble.” Since I 

am about to discuss a program that 
is capable of predicting the weather (some- 
times), I figure I'll get in trouble, but here 
goes. 

I chose predicting the weather as the 
subject of an early effort at knowledge 
engineering using EXPERT -2, a tiny fifth- 
generation type language.’ My friends in 
the business of weather prediction think 
this is somewhat amusing, but the results 
are quite interesting and possibly useful. I 
deliberately kept the knowledge engi- 
néering exercise simple since I intended 
to run this program in a 48K Apple II, 
using a Forth system with EXPERT-2 on 
top and the application program, the 
weather predictor. 

Expert systems are computer pro- 
grams that are specially designed to 
perform inferences: to prove things. 
EXPERT-2 is a program that. allows 
individuals to write task programs much 
like BASIC lets users write programs. 
It is a high-level language written for per- 
forming logic inferences using rules 
written into the user’s program. These 
rules may be used to solve important 
problems, like predicting the stock market 
... or the weather. 

EXPERT-2 allows two methods for 
encoding knowledge and information into 
the task program — in this case, the 
weather predictor: 


IF-THEN statements 
Analytic subroutines 


IF-THEN statements, or production 
rules, allow the user to direct the infer- 
ence process by entering into the com- 
puter specific statements that say, “if 
something is true, then something else is 
true.” The EXPERT -2 syntax is an exten- 
sion of the IF-THEN syntax used to de- 
velop an animals game.”’> The extensions 
include allowing statements to be entered 
in a negative context (IFNOT, ANDNOT) 
and calling analytic subroutines. 

Analytic subroutines were added to 
give the programmer access to the full 
power of the underlying Forth system. If 
EXPERT-2 had been written in, say, 


by Jack Park 





Jack Park, Helion Inc., Box 445, Browns- 
ville, CA 95919. 


Pascal, then the analytic subroutine calls 
(IFRUN, IFNOTRUN, ANDRUN, AND- 
NOTRUN) would permit access to that 
environment. As it is, EXPERT-2 was 
written in Forth, primarily because that’s 
the program environment in which I work 
best. Users of EXPERT-2, however, need 
not know or understand Forth; if analytic 
subroutines are not needed, no Forth 
coding is required. 

The weather predictor presented here 
does use analytic subroutines. These rou- 
tines are used in two ways: 


To prompt the user to input data 


To process data and return truth 
values to the rules 


The IF-THEN rules call the appropriate 
analytic subroutines when answers about 
weather data are needed. 

The IF-THEN rules contain know- 
ledge about the weather. This knowledge 
is encoded as antecedents (e.g., IF baro- 
metric pressure is falling rapidly) and 
consequents (e.g., THEN the weather is 
turning bad). Consequents follow appro- 
priate antecedents. Designing rules to 
correctly encode knowledge is called 
knowledge engineering. 


Knowledge Engineering 


Someone once asked me if EXPERT- 
2 ever adds to its own knowledge base or 
makes original statements. As it turns 
out, it often makes original statements - 
especially during system debugging. Early 
versions of EXPERT-2, in fact, were 
self-modifying (not by design!). Test runs 
were incredibly mystifying. Knowledge 
engineering, as I use the term here, as- 
sumes one has available a working in- 
ference machine: a program that permits 
inferences to be performed on a set of 
rules. EXPERT-2 is one of the early micro- 
computer-based inference machines avail- 
able; I expect there eventually will be a 
slew of them. 

Knowledge engineering is the process 
of defining a problem to solve (something 
for the expert to do, especially something 
useful), encoding into a program the ex- 
pertise required to solve the problem, 
testing, and finally validating the expert 
program. : 

To encode knowledge, one needs an 
expert whose brains (expertise) are 
accessible for encoding. As it turns out, 
that’s not a generally available commodity; 
experts may be around, but it takes charm, 
wit, and experience to get at their brains. 
Trying to determine what tools an expert 


brings to bear on a problem often gets you 
a textbook set of answers. Textbook 
answers are not necessarily what you need 
to solve a problem. Factors including years 
of experience, intuition, and a host of 
other issues must be explored before a 
knowledge engineer fully exhausts all the 
elements needed to solve a particular 
problem. 

For the weather predictor, I chose to 
explore only books and magazines, partly 
because I didn’t want to call in any chits I 
may have with the weather service and 
partly because I discovered some inter- 
esting prospects in the literature for home- 
brew weather prediction that could be 
translated to the EXPERT-2 system. A 
set of programs have been presented for 
computers that run BASIC.’ These pro- 
grams ask certain questions and issue 
weather predictions based on the answers. 
Because the algorithm used in the pro- 
grams relates well to the general literature 
on weather prediction, I selected it asa 
representative “‘expert”’ set of rules. 

For additions and changes to the rules 
derived from the magazine article I drew 
on the Heathkit Weather Training Manual, 
which has a section on weather fore- 
casting.> Selected rules on cloud motion, 
for example, were used to enhance the 
rule base. 

Analytic subroutines are then used to 
acquire weather data from the user and to 
process that data as the inference machine 
needs answers. 

Weather patterns are quite sensitive to 
local terrain influences. Therefore, the 
responses the weather predictor offers 
may not be appropriate to, say, a canyon 
region where you live. It seems to work 
well where I live. I leave it as an exercise 
for the reader to validate the weather 
predictor program in his or her own area. 


System Operation 


Rules are typed into a disk file using 
the editor available with the underlying 
Forth system. EXPERT-2 is then loaded 
and compiled on top of Forth as a task. 
Finally, the user task (in this case, the 
weather predictor) is loaded on top of 
EXPERT-2. First Forth compiles the ana- 
lytic subroutines and any variables or con- 
stants. EXPERT-2 then compiles the IF- 
THEN rules once the word RULES is 
encountered. Rule compiling ends with 
the word DONE. 

Forth, in its usual fashion, tells you 
that compiling has ended by printing OK 
on the screen. At this time it should be 
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safe to type RUN and start the forecasting 
program. RUN initializes the data base by 
asking appropriate questions then calls 
EXPERT-2 to solve the problems. The 
problem is to prove one of four possible 
hypotheses, identified in the rule base by 
THENHYP. The four hypotheses are: 


Weather is OK 

Weather is improving 

Weather is turning bad 

Insufficient data to perform a forecast 


EXPERT-2 takes the first hypo- 
thesis and begins the task of proving it. 
The routine that performs this task is 
DIAGNOSE, which is called by RUN. 
DIAGNOSE selects the hypothesis and 
passes it deeper into the EXPERT-2 
program. EXPERT-2 collects all the rules 
that might support a proof. 

If the hypothesis is ‘‘weather is 
OK,” then all rules that have as one of 
their consequent fields ‘“‘weather is OK”’ 
are tagged and drawn into the inference 
process. One such rule is: 


IFRUN BP>30.2 

ANDRUN BP-SLOW-FALL 

ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, 
OR NW 

THENHYP WEATHER OK 


ANDTHEN FAIR AND WARM 
NEXT 48 HRS 


One of the consequent fields (in this case, 
the first consequent) is the same as our 
hypothesis; in fact, this rule happens to 
be the one selected to define an hypo- 
thesis with THENHYP. EXPERT-2 finds 
this rule and tries to prove it. 

The inference machine takes each of 
the antecedents, one at a time, and tests 
them. If all pass with a truth value of 
TRUE, the consequents are taken as true, 
and the proof is complete. If any antece- 
dent fails with a truth value of FALSE, 
the rest of that rule is not tested. Anything 
that is “‘learned”’ along the way, however, 
is saved as a fact. If the system asks you 
which way the clouds are moving, for 
example, your answer becomes a fact so 
that EXPERT-2 does not have to ask you 
that question again. 

If EXPERT-2 proves a rule, DIAG- 
NOSE tells you about it, and the program 
ends with I CONCLUDE... .If, on the 
other hand, a given hypothesis cannot be 
proven, then the next available hypothesis 
is selected, and a new proof is started. The 
new proof has available to it everything 
that the system learned during all previous 
proof attempts (all attempts, that is, Since 
RUN was typed). If no proof is available 
on any hypothesis, EXPERT-2 typically 
states, CANNOT PROVE ANYTHING. 


The Weather Predictor 


You may wonder how such a simple- 
looking program can do any useful 


weather prediction; most people ask 
about this. As it turns out, the program 
concerns itself only with large-scale fron- 
tal movements. These fronts are best 
visualized (but not correctly described) as 
large bubbles of air hundreds of miles 
across, sliding around over the ground, 
bumping into each other, and generally 
moving from the west toward the east. 
Some of these bubbles are huge low- 
pressure masses of air, and some are large 
high-pressure masses of air. 

When a low-pressure mass of air ap- 
proaches your area, the barometer will 
spot the frontal motion and indicate that 
the barometric pressure is falling. As that 
air mass leaves your area, the barometer 


will begin to rise. Thus, by using readings 
of barometric pressure and asking ques- 
tions about which way the winds are 
blowing, the weather predictor attempts 
to determine which of its “known’’ fron- 
tal-air-mass patterns best describes the 
conditions present in the atmosphere. If 
it finds a pattern that fits, it issues a pre- 
diction. The patterns it looks for, however, 
must be calibrated for your area. 

As a simple exercise in knowledge 
engineering, the weather predictor demon- 
strates nearly the full capabilities of 
EXPERT-2. The program uses informa- 
tion on barometric pressure, surface wind 
direction, and upper air wind direction 
(as evidenced in upper cloud motion). 






Time was, you thought you couldn't 
afford a SemiDisk. Now, you can't 
afford to be without one. 


256K 512K Mbyte 
SemiDisk I, S-100 $895 $1095 $1795 
IBM PC $1095 $1795 
TRS-80 Md. II, CP/M $1095 $1795 
SemiDisk II, S-100 $1395 $2095 
Battery Backup Unit $150 


Version 5 Software Update $30 


Time was, you had to wait for your 
disk drives. The SemiDisk changed 
all that, giving you large, extremely 
fast disk emulators specifically 
designed for your computer. Much 
faster than floppies or hard disks, 
SemiDisk squeezes the last drop of 
performance out of your computer. 
Time was, you had to wait while your 


data was printing. That's changed, too. 
Now, the SemiSpool print buffer in 


experts have 
done it again! 
512Kbyte SemiDisk with SemiSpool’ 


$1095 











our Version 5 software, for CP/M 2.2, 
frees your computer for other tasks 
while data is printing. With a Capacity 
up to the size of the SemiDisk itself. 
you could implement an 8 Mbyte 
spooler! 

Time was, disk emulators were afraid 
of the dark. When your computer was 
turned off, or a power Outage 
occurred, your valuable data was lost. 
But SemiDisk changed all that. Now, 
the Battery Backup Unit takes the 
worry out of blackouts. 


But one thing hasn’t changed. That's 
Our Commitment to supply the fastest, 
highest density, easiest to use, most 
compatible, and most cost-effective 
disk emulators in the world. 


SemiDisk. stl! 
It’s the disk the others are trying to 
copy. A 


































SEMIDISK SYSTEMS, INC. 


P.O. Box GG_ Beaverton, OR 97075 (503) 642-3100 


Call 503-646-5510 for CBBS®/NW. a SemiDisk-equipped computer bulletin board 300/1200 baud 
SemiDisk, SemiSpoo! Trademarks of SemiDisk Systems. CP/M Trademark Digital Research 
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The rules begin with WALL, a word 
that lets you clear this rule base from 
memory if you want to load another pro- 
gram (by typing FORGET WALL). Fol- 
lowing WALL, all analytic subroutines are 
loaded, written in Forth. This version 
(Listing One, page 27) is written in an ex- 
tended Forth-79 dialect and based on the 
40-character line width of a standard 
Apple II. Readers who type this in on 
other systems are encouraged to explore 
the enormous advantages of larger line 
widths; some awkward statements often 
are created when one is constrained to a 
narrow screen. 

Following the analytic subroutines, 
RULES starts EXPERT -2’s rule compiler. 
This invokes the IF- THEN syntax that the 
listing illustrates. 

This weather predictor tests for 19 
different possible combinations of weather 
conditions, using 19 basic weather pre- 
diction rules. If the requested weather 
information you type in fits within one of 
the 19 possible data combinations, a pre- 
diction will be issued. If the data falls 
outside all possible tests, the system will 
issue the statement INSUFFICIENT 
DATA FOR A FORECAST. 

Since EXPERT-2 would rather say 
CANNOT PROVE ANYTHING, the last 
rule in the set stops that statement and 
issues a custom proof-collapse statement. 
That way, if EXPERT-2 is unable to prove 
any of the three main hypotheses, it is 
offered the last hypothesis as a consola- 
tion prize. This allows you to end an un- 
successful session with any statement you 
wish. 

Three sets of rules are available for 
checking on upper level clouds. These 
rules, which support some of the 19 main 
rules by asking special questions about 
such clouds, underscore one of the weak- 
nesses of EXPERT-2: its inability to 
handle an “I don’t know”’ answer. That 
answer, in fact, does not exist in the syn- 
tax. An astute knowledge engineer, how- 
ever, is still burdened with the likely 
event that this particular answer will be 
needed. Weather predictor handles the 
“don’t know’ case by allowing you to 
answer N for no if either you cannot see 
the upper clouds (there may not be any 
clouds to see) or you haven’t gone out- 
side to look as instructed. If you answer 
no, the system assumes the cloud motion 
supports whatever rule it happens to be 
trying to prove at the time. 

This derives from the second rule in 
each of the three rule groups. The second 
rule, in effect, says: After dealing with the 
instructions (MESSAGE1), IFNOT you 
can see the clouds THEN clouds indicate 
_... One of these exists for each of the 
three possible conditions. A true condi- 
tion is forced if you answer no. I am quite 
sure I’m gonna get in trouble for this. 


A typical terminal session with this 
weather predictor follows: 


1. System starts by asking barometric 
pressure; you enter 30.2. 


2. System next asks what the barometric 
pressure is doing; you enter the code 
for falling slowly. 

3. System asks for the direction from 
which the wind blows; you enter the 
code for south. 


4. The terminal response is: 


NOW, WE CAN PREDICT THE 
WEATHER. 


I MIGHT BE ASKING A FEW MORE 
QUESTIONS. 


I DEDUCE 

RAIN WITHIN 24 HRS 
I DEDUCE 

WEATHER TURNING BAD 
I CONCLUDE 

WEATHER TURNING BAD 
OK (Forth’s usual prompt) 


No further questions were asked in 
that session. This particular session in- 
cluded data that triggered (successfully) 
the following rule: 


IFRUN BP>30.1 
(30.2) 

ANDRUN BP-SLOW-FALL 
(pressure falling slowly) 


ANDRUN SDIR 
(southerly direction winds) 


BECAUSE WINDS FROM SE ORS 
THEN RAIN WITHIN 24 HRS 


ANDTHEN WEATHER TURNING 
BAD 


This rule illustrates a number of the 
design methods that were used in this 
knowledge engineering exercise. First, the 
final consequent, “weather turning bad,” 
helps direct the proof search. If you read 
the rules, especially the consequent fields, 
you will see that a search could be con- 
ducted on dozens of different possible 


consequents: “rain within 24 hrs,” for 
example. If I had set as many hypotheses 
as there are different consequents in this 
program, the hypothesis field would have 
been enormous. Instead I chose three 
primary consequents as “search pruners”’ 
to limit the search requirement. All 
possible rules that have a particular hypo- 
thesis are collected at the same time for 


proof. The first rule to pass the test ter- 


minates all further tests. Other than that, 
“weather turning bad” is a pretty useless 
consequent. | 


A BECAUSE field is included in this 
rule to allow the programmer to tack ex- 
planations in where the code might other- 
wise be incomprehensible. For example, if 
the name chosen for an analytic subrou- 
tine that is called to check wind direction 
is not particularly descriptive, a BECAUSE 
statement is added. If the system asks a 
question in the form IS THIS TRUE?, you 
can answer Y for yes, N for no, or W for 


renner eee eee eee ear aa een —————————————————_——_——— 
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“Why did you ask me that question?” It 
allows you to get an explanation, which is 
where the BECAUSE clause is handy. 

The BECAUSE clause is also handy 
when passing around source code for pro- 
grams. One of the advantages of the 
EXPERT-2 style program is that it is 
largely self-commenting. Where it is not 
self-commenting, you can add BECAUSE 
clauses. 

This EXPERT-2 program’s heavy use 
of analytic subroutines reduces the num- 
ber of questions the program might be 
inclined to ask at the terminal. By contrast, 
the animals game mentioned earlier uses 
absolutely no analytic subroutines: what- 
ever it learns in the proof process is gained 
from the terminal. Expert programs are 
much more interesting if they ask some- 
thing at the terminal. 


Going Beyond 

EXPERT-2 is a high-level language 
for experimenters in early fifth-generation 
machines. It is made available in source 
code form, loadable on a variety of Forth 
systems. Using the source, this weather 


predictor program, and a lot of sweat 
equity, I expect some pretty strong 
weather predictor programs will emerge. 

Weather prediction is largely a data 
processing and pattern recognition effort, 
one well suited to an expert system. By 
adding some simplified models related to 
atmospheric physics and coupling the pro- 
gram (through analytic subroutine func- 
tions) to an automatic weather station, 
you could perhaps create a new program 
for predicting weather hazards for farmers 
or sporting events. 

Weather forecasters rate each other by 
a value they call “skill.” Flipping a coin 
usually gets a skill of 0.5 or 50% right. It 
will be interesting to see what skill this 
program and its derivatives achieve. Since 
local weather prediction is sensitive to 
local geographic terrain effects, this pro- 
gram will need some fiddling to raise its 
skill, perhaps even to the 50% level. 

Some thought might go into letting 
the program run on a pseudo-real-time 
basis, keeping track of its own skill. It also 
might be written to fiddle with its own 
inferences in an attempt to raise its skill: 
a self-learning system. You will have to 


make sure, however, that it does not learn 
how to fiddle with its skill algorithm. 
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Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 193. 


7I Sa aa ENGE OEMs a ee a Eas SY 
Weather P redictor (Text begins on page 24) 


Screen 1 BP?! Cf 

( WEATHER PREDICTOR -. EXPERT-2 JP) 

>; WALL ; FORTH 

VARIABLE MESS1 ( toggle flag ) < N, NE, E, SE, 
2ZVARIABLE BP ( barometric press) 

VARIABLE DIR 2 ALLOT (dir code -) 

VARIABLE BP? ( pressure trend code ) 


THE WIND IS BLOWING FROM WHICH OF THE 


FOLLOWING DIRECTIONS ? " CR 


5S SW, W, NW > " 


DIR 3 EXPECT CR CR ns 


NOW WE CAN PREDICT THE WEATHER." CR ." 


I MIGHT BE ASKING A FEW MORE QUESTIONS" 





DIAGNOSE ( start EXPERT-2 ) ; 
> RUN @ MESS1 ! DIR 4 ERASE HOME CR ,"- --> 
NIMBLE WEATHER PROGRAM" CR CR." 
THIS PROGRAM ATTEMPTS TO PROVE ONE OF 
THE FOLLOWING =: “ CR = Screen 3 
THE WEATHER IS OK" CR a ( WEATHER PREDICTOR - EXPERT-2 JP) 


THE WEATHER IS IMPROVING" CR i 
THE WEATHER IS DETERIORATING" CR ," 
NOT ALL WEATHER CASES ARE INCLUDED IN 
THE FORECAST ALGORITHM." CR CR hn 
BEFORE WE ATTEMPT A FORECAST, 
I NEED SOME DATA." CR CR ai 
WHAT IS THE BAROMETRIC PRESSURE READING? 
< EXAMPLE - TYPE 38.2 > " INPUTD# CR CR 
Ge: 
--> 
CONTINUED ON NEXT SCREEN 


( 


analytical subroutines follow ) 
BP>36.2 ( -- TF ) 
BP. 2¢--30<.2 D3 = 


BP>30.1 ( -- TF ) 
BP 2839.2 D> s 


BP<39 01° (> <9 Fi) 
BP 28 S041 Dk S 


BPS29 9 Sect 
BP 2@ 2DUP 29.8 D< >R 29.8 D= R> OR: 


s 


Screen 2 HEX ( now set-up direction tests ) 
( WEATHER PREDICTOR - EXPERT-2 JP) WDIR ( -- TF ) 
M. DIR: @ 5753: (- SW: OVER. = SWAP $7 ( W ) 
SELECT FROM THE FOLLOWING : " CR . OVER = SWAP 574E ( NW ) = OR OR 7 
1 - BP IS STEADY" CR ry SDIR ( -=— TF ) 
2 - BP IS RISING SLOWLY" CR es DIR @ 4553 ( SE ) OVER = SWAP 53 fee Ba 
3 - BP IS RISING RAPIDLY" CR Se SOR = 
4 - BP IS FALLING SLOWLY" CR = man > 
5 - BP IS FALLING RAPIDLY " INPUT# (Continued on next page) 


= SR 90: etc oepmcrcecpmemtaeeapm emerson ets aD a ee 
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Weather Predictor (Listing Continued, text begins on page 24) 


Screen 4 

( WEATHER PREDICTOR - EXPERT-2 JP) 

: NEDIR DIR @ 454E ( NE ) OVER = SWAP 
a oh Ed se OOR 

-“<NDOPRo NEDIR DER 

¢EDIR. NEDER: DER 

-3SBDIR SDLR-DIR 

: SWDIR DIR @ 53 
S753 0 SW): = OR: 3 
BP-SLOW-FALL BP? @ 4 = ; 
BP-RAPID-FALL BP? @ 5 = 
BP-SLOW-RISE BP? @2 = ; 
BP-RAPID-RISE BP? @ 3 = 
BP-STEADY BP? @ 1 = ; 

JECIMAL 

--> 


few) 
£55372 (380) 
25 ie ee 
S..) OVER = 


OR 


~ Oa @ 


= OR. 
OR. 
SWAP 


=e 


=e 


Screen 5 
( WEATHER PREDICTOR - EXPERT-2 JP) 


: MESSAGE1 MESS1 @ NOT 

TF. CR er 
FOR THE NEXT QUESTION, YOU SHOULD STAND 
OUTSIDE WITH YOUR BACK TO THE SURFACE 
WIND." CR a 
YOU NOW MUST OBSERVE THE DIRECTION UPPER 
LEVEL CLOUDS ARE MOVING." CR 
YOU OBSERVE THEM TO BE MOVING FROM YOUR 
RIGHT, FROM YOUR LEFT, OR IN A DIRECTION 
PARALLEL TO THAT WHICH YOU ARE FACING." 

CR we 

USE THIS INPORMATION TO ANSWER THE 
FOLLOWING QUESTION. IF YOU ARE UNABLE TO 
SEE THE UPPER LEVEL CLOUDS, ANSWER NO TO 
THE FOLLOWING QUESTION" CR 

THEN 1 MESSI !.. TRUE *{ 
--> 


Screen 6 
( WEATHER PREDICTOR - EXPERT-2 JP) 
BPULES  ( ‘start the rule compiler <) 


( deteriorate test using clouds ) 
IFRUN MESSAGE1L 

ANDIF YOU CAN SEE UPPER LEVEL CLOUDS 
ANDIF CLOUDS MOVING FROM YOUR LEFT 
THEN CLOUDS INDICATE BAD WEATHER 

IFRUN MESSAGE1 

ANDNOT YOU CAN SEE UPPER LEVEL CLOUDS 
THEN CLOUDS INDICATE BAD WEATHER 

( improving test using clouds ) 

IFRUN MESSAGE1 

ANDIF YOU CAN SEE UPPER LEVEL CLOUDS 
ANDIF CLOUDS MOVING FROM YOUR RIGHT 
THEN CLOUDS INDICATE WEATHER IMPROVING 
IFRUN MESSAGE1L 

ANDNOT YOU CAN SEE UPPER LEVEL CLOUDS 
THEN CLOUDS INDICATE WEATHER IMPROVING 
sey 


Screen 7 

( WEATHER PREDICTOR - EXPERT-2 JP) 
( steady test using clouds ) 

IFRUN MESSAGE1 

ANDIF YOU CAN SEE UPPER LEVEL CLOUDS 
AND CLOUDS MOVE PARALLEL TO DIRECTION 


THEN CLOUDS INDICATE STEADY WEATHER 
IFRUN MESSAGE1 
ANDNOT YOU CAN SEE UPPER LEVEL CLOUDS 


THEN CLOUDS INDICATE STEADY WEATHER 
oa 


Screen 8 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP>39.2 

ANDRUN BP-SLOW-FALL 

ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, OR NW 
THENHYP WEATHER OK 
ANDTHEN FAIR AND WARM NEXT 48 HRS 
IFRUN BP>39.2 

ANDRUN BP-STEADY 

ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, OR NW 
THEN CONTINUED FAIR 
ANDTHEN LITTLE TEMPERATURE CHANGE 
ANDTHEN WEATHER OK 

IFRUN BP>39.1 

ANDRUN BP-STEADY 

ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, OR NW 
THEN FAIR WEATHER 
ANDTHEN LITTLE CHANGE NEXT 48 HRS 
ANDTHEN WEATHER OK 

--—> 


Screen 9 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP>3@.1 

ANDRUN BP-SLOW-FALL 

ANDRUN NEDIR 

BECAUSE WINDS FROM NE OR E 

AND SEASON IS SUMMER 

BECAUSE NOT WINTER 

AND CLOUDS INDICATE STEADY WEATHER 
THEN RAIN MAY NOT FALL 

ANDTHEN STEADY FOR SEVERAL DAYS 
ANDTHEN WEATHER OK 

--> 


Screen 19 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP<29.8 

ANDRUN BP-RAPID-RISE 
THENHYP WEATHER IMPROVING 
ANDTHEN CLEARING AND COLDER 

IFRUN BP<39.1 

ANDRUN BP-SLOW-RISE 

ANDRUN SWDIR 

BECAUSE WINDS FROM S OR SW 

AND CLOUDS INDICATE WEATHER IMPROVING 
THEN CLEARING WITHIN A FEW HRS 
ANDTHEN FAIR NEXT SEVERAL DAYS 
ANDTHEN WEATHER IMPROVING 
--> 


Screen ll 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP>390.1 

ANDRUN BP-SLOW-FALL 


ANDRUN EDIR (Continued on page 30) 


nnn EEE EES 
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eNEW 


pRODUCTS® 


Before Johann Sebastian Bach developed 
a new method of tuning, you had to 
change instruments practically every time 
you wanted to change keys. Very difficult. 


Before Avocet introduced its family of 
cross-assemblers, developing micro-pro- 
cessor software was much the same. You 
needed a separate development system 
for practically every type of processor. 
Very difficult and very expensive. 


But with Avocet’s cross-assemblers, a 
single computer can develop software for 
virtually any microprocessor! Does that 
put us in a league with Bach? You decide. 


The Well- Tempered Cross-Assembler 


Development Tools That Work 


Avocet cross-assemblers are fast, reliable 
and user-proven in over 3 years of actual 
use. Ask NASA, IBM, XEROX or the hun- 
dreds of other organizations that use them. 
Every time you see a new microprocessor- 
based product, there’s a good chance it 
was developed with Avocet cross- 
assemblers. 


Avocet cross-assemblers are easy to use. 
They run on any computer with CP/M* 
and process assembly language for the 
most popular microprocessor families. 


514” disk formats available at no extra 
cost include Osborne, Xerox, H-P, IBM 
PC, Kaypro, North Star, Zenith, 
Televideo, Otrona, DEC. 


Turn Your Computer Into A 
Complete Development System 


Of course, there’s more. Avocet has the 
tools you need from start to finish to enter, 
assemble and test your software and finally 
cast it in EPROM: 


Text Editor VEDIT -- full-screen text edi- 
tor by CompuView. Makes source code 
entry a snap. Full-screen text editing, plus 
TECO-like macro facility for repetitive 
tasks. Pre-configured for over 40 terminals 
and personal computers as well as in user- 
configurable form. 


CP /M:80 version 2.00.5... 
CP /M-86 or MDOS version 


(when ordered with any Avocet product) 


EPROM Programmer -- Model 7128 
EPROM Programmer by GTek programs 
most EPROMS without the need for per- 
sonality modules. Self-contained power 
supply ... accepts ASCII commands and 
data from any computer through RS 232 
serial interface. Cross-assembler hex ob- 
ject files can be down-loaded directly. 
Commands include verify and read, as 
well as partial programming. 


PROM types supported: 2508, 2758, 
2510. “27 16, (eae, Zloe, “goer, 
27C32, MCM8766, 2564, 2764, 27C64, 
27128, 8748, 8741, 8749, 8742, 8751, 
8755, plus Seeq and Xicor EEPROMS. 






Avocet 
Cross-assembler 


¢ XASMZ80 

e XASM85 
XASMO5 
XASMO9 
XASM18 
XASM48 
XASM51 
XASM65 
XASM68 
XASMZ8 
XASMF8 
XASM400 
XASM75 










(Upgrade kits will be available for new 
PROM types as they are introduced.) 


Reodrarmrer va sere Se $429 
Options include: 

e Software Driver Package -- 

e enhanced features, no installation 


@ required. 

OU /M-OD Version st oo S75 

Ploy PON erst. oso 2 oe Soe. $ 95 
Rs Zoe ROA a pi Par OB ee 8 $ 30 
8748 family socket adaptor... $ 98 
8751 family socket adaptor... $174 

e 8755 family socket adaptor... $135 


e G7228 Programmer by. GTek -- baud 
e to 2400 ... superfast, adaptive program- 
e ming algorithms ... programs 2764 in one 
e minute. : 


* Programmer o,f e352 8 


@ Ask us about Gangand PAL programmers. 


e HEXTRAN Universal HEX File Con- 
® verter -- Converts to and from Intel, 


¢ Motorola, MOS Technology, Mostek, 
e RCA, Fairchild, Tektronix, Texas 


e Instruments and Binary formats. 


® Converter, each version....... 


Circle no. 3 on reader service card. 


Target CP/M-80 i: 
Versions e 


NEC 7500 $500.00 













¢ CP/M-86 
















$250.00 
each 








$200.00 
each 









$300.00 
each 





Call Us 


If you’re thinking about development sys- 
tems, call us for some straight talk. If we 
don’t have what you need, we’ll help you 
find out who does. If you like, we’ll even 
talk about Bach. 


CALL TOLL FREE 1-800-448-8500 
(In the U.S. except Alaska and Hawaii) 


VISA and Mastercard accepted. All popular disc formats now 
available -- please specify. Prices do not include shipping and 
handling -- call for exact quotes. OEM INQUIRIES INVITED. 


* Trademark of Digital Research ** Trademark of Microsoft 


AVOCET 
SYSTEMS INC. 


DEPT. 4-84 DDJ 
804 SOUTH STATE STREET 
DOVER, DELAWARE 19901 


302-734-0151 TELEX 467210 





MicroMotion 


MasterFORTH 


I's here — the next generation 
of MicroMotion Forth. 


e Meets all provisions, extensions and experimental 
proposals of the FORTH-83 International Standard. 


e Uses the host operating system file structure (APPLE 
DOS 3.3 & CP/M 2.x). 


@ Built-in micro-assembler with numeric local labels. 


e Afull screen editor is provided which includes 16 x 
64 format, can push & pop more than one line, 
user definable controls, upper/lower case key- 
board entry, ACOPY utility moves screens within & 
between lines, line stack, redefinable control 
keys, and search & replace commands. 
















































e Includes all file primitives described in Kernigan 
and Plauger’s Software Tools. 


@ The input and output streams are fully redirectable. 


e theeditor, assembler and screen copy utilities are 
provided as relocatable object modules. They 
are brought into the dictionary on demand and 
may be released with a single command. 

e@ Many key nucleus commands are vectored. Error 
handling, number parsing, keyboard translation 
and so on can be redefined as needed by user 
programs. They are automatically returned to 
their previous definitions when the program is 
forgotten. 

e The string-handling package is the finest and 
most complete available. 

e Alisting of the nucleus is provided as part of the 
documentation. 

e The language implementation exactly matches 
the one described in FORTH TOOLS, by Anderson 
& Tracy. 


e Floating Point & HIRES options available. 
e Available for APPLE II/Il+/lle & CP/M 2.x users. 


@ MasterFORTH — $100.00. FP & HIRES -$40.00 each 
(less 25% for FP & HIRES). 


e Publications 
@ FORTH TOOLS —- $20.00 


@ 83 International Standard — $15.00 


@ FORTH-83 Source Listing 6502, 8080, 8086 -— 
$20.00 each. 


Contact: 


MicroMotion 
12077 Wilshire Blvd., Ste. 506 

Los Angeles, CA 90025 
(213) 821-4340 


30 Circle no. 34 on reader service card. 


Weather Predictor 


(Listing Continued, text begins on page 24) 


BECAUSE WINDS FROM NE, E, OR SE 
AND CLOUDS INDICATE BAD WEATHER 
THEN RAIN IN 12 - 18 HRS 
ANDTHEN WEATHER TURNING BAD 
IFRUN BP>39.1 

ANDRUN BP-RAPID-FALL 

ANDRUN EDIR 

BECAUSE WINDS FROM NE, E, OR SE 
THEN WINDY, RAIN WITHIN 12 HRS 
ANDTHEN WEATHER TURNING BAD 
--> 


Screen 12 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP>39.1 

ANDRUN BP-SLOW-FALL 

ANDRUN NEDIR 

BECAUSE WINDS FROM NE OR E 

AND SEASON IS WINTER 

BECAUSE NOT SUMMER 

AND CLOUDS INDICATE BAD WEATHER 
THEN RAIN WITHIN 24 HRS 
ANDTHEN WEATHER TURNING BAD 
IFRUN BP>390.1 

ANDRUN BP-RAPID-FALL 

ANDRUN NEDIR 

BECAUSE WINDS FROM NE OR E 

AND SEASON IS SUMMER 

BECAUSE NOT WINTER 

AND CLOUDS INDICATE BAD WEATHER 
THEN RAIN WITHIN 12 - 24 HRS 
ANDTHEN WEATHER TURNING BAD 

--> 


Screen 13 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP<29.8 

ANDRUN BP-RAPID-FALL 

ANDRUN NDIR 

BECAUSE WINDS FROM N, NE, OR & 
THEN SEVERE STORM WARNING 
ANDTHEN SEVERE NORTHEAST GALES 
ANDTHEN WEATHER TURNING BAD 
IFRUN BP<29.8 

ANDRUN BP-RAPID-FALL 

ANDRUN SEDIR 

BECAUSE WINDS FROM E, SE, OR §S 
THEN SEVERE STORM WARNING 
ANDTHEN RAIN OR SNOW IMMINENT 
ANDTHEN WEATHER TURNING BAD 

--> 


Screen 14 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP<3G.1 

ANDRUN BP-SLOW-FALL 

ANDRUN EDIR 

BECAUSE WINDS FROM SE, £E, OR NE 

AND CLOUDS INDICATE BAD WEATHER 
THEN RAIN FOR NEXT DAY OR TWO 
ANDTHEN WEATHER TURNING BAD 
--> 
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Screen 15 

( WEATHER PREDICTOR - EXPERT-2 J.P) 
IFRUN BP<390.1 

ANDRUN BP-RAPID-FALL 

ANDRUN EDIR 

BECAUSE WINDS FROM SE, E, OR NE 
AND CLOUDS INDICATE BAD WEATHER 
THEN RAIN WITH HIGH CLOUDS 
ANDTHEN CLEARING WITHIN 24 HRS 
ANDTHEN COOLER TEMPERATURES 
ANDTHEN WEATHER TURNING BAD 
--> 


Screen 16 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP>30.1 

ANDRUN BP-RAPID-RISE 

ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, OR NW 
THEN FAIR TODAY 
ANDTHEN RAIN & WARMER NEXT 48 HRS 
ANDTHEN WEATHER TURNING BAD 

IFRUN BP>30.1 

ANDRUN BP-SLOW-FALL 

ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, OR NW 
THEN WARMER 
ANDTHEN RAIN WITHIN 24 - 36 HRS 
ANDTHEN WEATHER TURNING BAD 
--> 


Screen 17 

( WEATHER PREDICTOR - EXPERT-2 JP) 
IFRUN BP>39.1 

ANDRUN BP-RAPID-FALL 

BECAUSE RAPID FALL > .96" PER HOUR 
ANDRUN WDIR 

BECAUSE WINDS FROM SW, W, OR NW 
AND CLOUDS INDICATE BAD WEATHER 
THEN- WARMER 
ANDTHEN RAIN WITHIN 18 - 24 HRS 
ANDTHEN WEATHER TURNING BAD 

IF RUN BP>30.1 

ANDRUN BP-~SLOW-FALL 

ANDRUN SDIR 

BECAUSE WINDS FROM SE OR § 
THEN RAIN WITHIN 24 HRS 
ANDTHEN WEATHER TURNING BAD 

IFRUN BP>39.1 

ANDRUN BP-RAPID-FALL 

ANDRUN SDIR 

BECAUSE WINDS FROM SE OR § 
THENHYP WEATHER TURNING BAD 
ANDTHEN WINDY, RAIN WITHIN 12 HRS 
--> 


Screen 18 

( WEATHER PREDICTOR - EXPERT-2 JP) 
( closing statement generator ) 

IFNOT WEATHER OK 

ANDNOT WEATHER TURNING BAD 

ANDNOT WEATHER IMPROVING 
THENHYP INSUFFICIENT DATA FOR A FORECAST 


DONE 
=5 


End Listing 
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edward k. ream 


FULL SCREEN EDITOR 
with 


FULL SOURCE CODE in C 


for 


CP/M 68K or CP/M 80 


¢ RED is a powerful yet simple full screen text 
editor for both programmers and writers. 





¢ RED features 17 commands including block 
move, block copy, search and substitute. 


¢ RED comes with full source code in 
standard C. RED works as is with the 
BDS C, Aztec CII and Digital Research 
Compilers. 


¢ RED supports a// features of your terminal. 
You tailor RED to your terminal with an 
easy-to-use configuration program. 


¢ RED handles files as large as your disk. 


¢ RED is guaranteed. If for any reason you 
are not satisfied with RED, your money will 
be refunded promptly. 


Price: $95. 


Call today for more valuable information: 
(608) 231-2952 


To order, send a check or money order to: 


Edward K. Ream 
1850 Summit Avenue 
Madison, Wisconsin 53705 


Your order will be mailed to you within one week. Sorry, I can 
not handle credit cards. Please do not send purchase orders 
unless a check is included. RED is distributed only on 8 inch 
CP/M format disks, but other disk formats are available 
through third parties. 


Dealer inquiries invited. 
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RSA: A Public Key Cryptography 
System, Part Il 





elcome back for the second pass, 
If you are like I am, you have 
read or scanned between twenty 


and forty magazines in the month that has 
passed since you read the first part of this 
article. (It keeps getting harder to keep 
up with technology.) Therefore, we should 
briefly review what we presented in Part I. 


Part | Revisited 


We first learned that Diffie and Hell- 
man introduced the Public Key System 
(PKS) in 1976’ and expanded on it in 
1979.2 In 1978, Rivest, Shamir, and 
Adleman (RSA) proposed a method of 
PKS implementation and introduced sign- 
ing messages with digital signatures. ° 

Then we ran through a brief introduc- 
tion to RATFOR (RATional FORtran), 
the implementation language. RATFOR, 
which is similar in many ways to C and 
Pascal, adds several structured constructs 
to Fortran, and the output of the RAT- 
FOR precompiler is Fortran. Sample 
compilation of a RATFOR “‘program”’ to 
source was provided in Listings One to 
Three. 

Next we reviewed modulo arithmetic. 
We saw that modulo arithmetic has some 
advantages and disadvantages. It limits 
the size of the numbers that are generated, 
but it requires considerable extra com- 
putation. As we will see, modulo arithme- 
tic is an integral part of the RSA crypto- 
system. 

Next we looked at multiple- precision 
arithmetic. The multiple-precision arith- 
metic algorithms implemented in Part I 
form the core of the RSA system that we 
will present here. Knuth’s algorithms* 
were stated and Listing Four showed the 
RATFOR source that implemented these 
algorithms. Four algorithms were pre- 
sented: addition, subtraction, multiplica- 
tion, and division. We saw that these algo- 
rithms were very computation intensive 
and that optimization efforts should 
probably be directed at them. 


by C.E. Burton 


C. E. Burton, 1720 S. Deframe Court, 
Denver, CO 80228. 


Copyright © 1983 by C. E. Burton. All 
rights reserved. Permission is granted to 
use this software for personal, non- 
commercial use only. 


Finally, the Russian Peasant expo- 
nentiation algorithm was presented. The 
basic algorithm found in Knuth’s book 
had to be expanded to include modulo 
operations (a requirement of RSA). The 
Russian Peasant algorithm is most suitable 
for use with large exponents, which is why 
it was selected. Listing Five showed the 
RATFOR implementation of the algo- 
rithm. 

In this part we will explore the 
generation and testing of large prime 
numbers, the generation of public/private 
keys, the encryption/decryption process, 
and the use of digital signatures. How- 
ever, before we get to the meat of things, 
we must revisit RATFOR. 


RATFOR Revisited 


One of the advantages of RATFOR is 
that it allows character and string manipu- 
lation, a shortcoming of Fortran. Most of 
the library functions are associated with 
character manipulation. Since several of 
these library routines are used in the pro- 
grams presented in this part, we will look 
at them briefly. 

Also, RATFOR can have a global 
definition file, which I have called RAT- 
DEF.RAT. RATDEF contains definitions 
for most of the common ASCII characters, 
including control characters. For example: 


define (BIGD, 68) =” aan Te ed 
define(LETD,100) # ‘‘d”’ 
define(BACKSPACE,8) 

# <BACKSPACE> character 


These are defined because Microsoft’s 
Fortran converts all lower-case characters 
to upper case, i.e., “‘d” translates to “D.” 
In addition, RATDEF contains some key 
word definitions. For example: 


define (character, byte) 
# make CHARACTER type equi- 
valent to BYTE 
define (EOS ,-2) 
# End of String character 
define(EOF ,-1) # End of File character 
The library functions that are used in 
the RSA-PKS routines include: 


CLOSER -closesa file opened by OPENR 


EQUAL -compares two strings for 
equality 

ERROR -prints a string then exits to 
the operating system 

GETC - waits for and gets a character 
from the console 

GETCH ~-getsa character from a Logical 


Unit specified in OPENR 


OPENR_ -opens a character type file in 
the specified mode and sets 
aside a specified buffer size 

PUTCH-  -sends a character to the Logi- 


cal Unit specified in OPENR © 


PUTDEC -converts an integer to a char- 
acter string of specified length 
and sends the string to the 
console 

REMARK-sends a string to the console 
without a carriage return; a 
period terminates the string 

RMRKLN-sends a string to the console 

terminated by a carriage re- 
turn; a period terminates the 
string 

~determines if a character is a 

DIGIT ora LETTER 

So much for our revisit to RATFOR. 

Now, let’s talk a little bit about the RSA 

system and what makes it so advantageous. 


TX?E 


Public Key Systems 


PKS cryptography systems are differ- 
ent from most other cryptography systems 
in that a key is made public. Other cryp- 
tography systems require that the key be 
kept secret; otherwise, the system is com- 
promised. Private key methods require 
that both the sending and the receiving 
sites have copies of the key so that they 
can encrypt/decrypt messages. The logis- 
tics of key distribution can be very 
awkward and costly. For communication 
networks, this process is almost useless. 

PKS systems do not have these prob- 
lems, since everyone has access to the 
public (encrypting) key ; however, only the 
receiver knows the private (decrypting) 
key. This dual key approach allows any- 
one to use the public key to encrypt a 
message and send it to the holder of the 
private key, who is the only individual 
that can decrypt the message. For this 
system to work, knowledge of the public 
key cannot provide any knowledge about 
the private key, which would compromise 
the cryptography system. 

The RSA system generates keys that 
have 200+ decimal digits by using prime 
numbers that have 100+ decimal digits. 
What makes the public key so secure is 
that efficient methods of factoring a 
very large number into its prime factors 
is beyond current mathematical feasibility, 
even using today’s supercomputers. Esti- 
mates of factoring such numbers range 
from hundreds to billions of years, essen- 
tially an impossible task. 

That is not to say that a mathematical 
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breakthrough cannot happen tomorrow 
and render the RSA _ system useless, 
similar to the recent breaking of the 
Knapsack System (a rival PKS). Knuth 
presents at least four methods of factoring 
numbers into their prime factors, including 
the sieve method that is used as a standard 
benchmark program. To factor a number, 
N, all we have to do is check all prime 
numbers less than or equal to the square 
root of N. If N is less than a million, there 
are only 168 primes to search. As numbers 
become larger, a prime number occurs 
about once every 2.3 times the number of 
decimal digits in the number. Thus, for 
100-digit numbers, a prime number will 
be found once every 2300 numbers or so. 

The problem then becomes: How do 
we find primes having 100+ decimal 
digits? 


Large Prime Numbers 


We are not really interested in fac- 
toring numbers into all their prime factors; 
we simply want to find a pair of prime 
numbers. Luckily, a theorem exists for 
this, although it does not say that a num- 
ber is prime, only that it is not prime. 
The algorithm is based on Fermat’s 
theorem, which states that if P is prime and 
X is not a multiple of P, then (X ** (P-1)) 
mod P=1. Unfortunately, the theorem 
is not an if-and-only-if condition; i.e., it 
is not necessarily true that if the result is 
one, then P is prime. However, we can 
say that if the result is not one, then P is 
definitely not prime. (By the way, now 
we can see one of the reasons that we were 
interested in modifying the Russian 
Peasant algorithm to include modulo 
arithmetic.) 

Knuth points out that some non- 
prime numbers can give prime testing 
routines great difficulty, such as (X ** 
560) mod 561=1 for all X relatively 
prime to 561. To overcome this difficulty, 
Knuth provides a probabilistic prime test. 
If the algorithm is invoked K_ times, 
choosing X independently and randomly, 
and if the algorithm finds that the num- 
ber is probably prime in all cases, then 
there is only one chance in (4 ** K) 
that the number is not prime. On the 
other hand, if during any pass the number 
is found to be non-prime by the algorithm, 
then the number is definitely not prime. 

In Listing Six (page 40) you will find 
the prime test routine (PRIMTEST.RAT). 
It is not an implementation of Knuth’s 
Algorithm P but is a simpler offshoot of 
the Fermat theorem, which we will call 
algorithm P’. Algorithm P’ proceeds as 
follows: 


Prime Test Algorithm 

Algorithm P’ (probabilistic primality test). 
Given an odd, positive integer, N, this 
algorithm attempts to decide whether or 
not N is prime. 


P’'1. [Check divisibility by 5] If the least 
significant digit of N is divisible by 5 
(lsd(N) mod 5 =0Q), then terminate 
the algorithm and say N is not prime. 

. [Generate exponent] Set M=N-1. 

. [Initialize] Set K = 1. 

. [Generate X] Let X be a random, 
positive integer in the range 1< X<N. 

. [Exponentiate] Set Y = (X ** M) 
mod N. 

. [Done?] If K = KTIMES and Y =1, 
then terminate the algorithm and say 
N is probably prime. 

. [Not prime] If Y != 1, then termi- 

nate the algorithm and say N is not 

prime. 

[Increase K] Set K = K+1 and return 

to Step P’4. 


As with Knuth’s Algorithm P, if this 
algorithm reports that N is not prime, then 
N is definitely not prime. If N is reported 
to be probably prime, a finite probability 
remains that N is not prime! I cannot say 
with any certainty what the probability 
is. I checked 561 withthe above algorithm 
and, after fifty attempts to determine the 
primality of 561, the algorithm only 
reached five passes (K = 5) once; usually 
it only reached one or two passes. The 
algorithm could probably be made more 
efficient at Step P’1 by using some of the 
fast divisibility algorithms presented by 
H. T. Gordon.® It should be noted that 
KTIMES does not have to be 30, as is 
the case in Listing Six (see the define 
near the beginning of the listing), but 
reducing the value increases the prob- 
ability that N will not be prime. The 
source code in Listing Six provides a 
test number count as the algorithm is 
executing (PUTDEC call) so that you can 
see how the operation is progressing. 

Now that we can test for and generate 
large prime numbers, we are in a position 
to generate the public and private keys. So, 
let’s look at the key generation procedure. 


P’8. 


Key Generation 


Before we dig into the generation of 
the keys, let’s look at the RSA-PKS 
cryptography system in some detail to 
get a better feel for where we are heading. 
The RSA system is based on the use of 
large prime numbers, but in fact, we need 
only two large prime numbers, P and Q 
(at least 100 decimal digits each is prefer- 
able). The public (encryption) key is 
formed by the product of P and Q, ie., 
N =P *Q. As you can imagine, factoring 
N is nearly impossible since N is a number 
composed of at least 200 decimal digits. 

Next we now take the clear text and 
break it up into blocks; each block is 
formed by translating the characters into 
numbers and concatenating the digits to 
form a number, X, such that O<X<N. 
To encrypt the message, we take each 
block, X, in turn, and form Y= (X ** 3) 


mod N. Each encrypted block, Y, is then 
transmitted to the intended receiver. The 
person receiving the message has a private 
(decryption) key, generated from P and 
Q. The private key, D, is formed by 
picking D such that D<N and (3 * D) 
mod ((P-1) * (Q-1))=1. We find that 
((X ** 3) ** D) mod N =X; iie., D is the 
cube root operator modulo N. 

There is one further restriction on X. 
X must be greater than the cube root of N, 
otherwise we could easily decrypt the en- 
crypted message using a standard cube 
root operation, since (X **3) mod 
N = X ** 3! What happens if one or more 
of the blocks does not satisfy this restric- 
tion? Well, we just pad the end of the 
block with random characters until the 
restriction is satisfied. Also, you might 
ask at this point, why can’t I just take the 
cube root of Y and retrieve the clear text 
message, X? Well, think about what 
happened when you performed the 
modulo operation. The RSA-PKS opera- 
tion is called a one-way, trap-door func- 
tion, because it is easy to go one direction 
but not the other direction. 

A couple of conditions on P and Q 
should be observed. First, (P-1) and 
(Q-1) cannot be divisible by 3; if (P-1) 
or (Q-1) is divisible by 3, then D may not 
decode the encrypted message because it 
does not produce a unique cube root. 
Second, (P-1) and (Q-1) should each have 
at least one large prime factor, otherwise 
the potential exists that N could be easily 
factored (see Knuth). Finally, P/Q should 
not be close to a simple fraction, or, 
again, N could be easily factored. 


Now let’s see how we can generate P 
and Q to get the keys. If you review the 
two previous paragraphs, you will agree 
that generating the keys is our most com- 
plex task (and the code will reflect this 
fact). Listing Seven (page 46) is the key 
generation routine (GENPKEYS.RAT). It 
uses every routine that we have discussed 
so far. Near the beginning of the program, 
some defines specify the KEYLENGTH 
and the BYTEMODULUS. These values 
are not set in concrete and can be reduced 
subject to some caution. BY TEMODULUS 
can be any value between 2 and 128, at 
the potential cost of increasing computa- 
tion time in the prime testing routine. 
KEYLENGTH can be reduced at the risk 
of increasing the key’s vulnerability. The 
length of 90 is equivalent to a 630-bit 
key length ((2 ** 7) ** 90) or a 190- 
decimal-digit key. 

Our first task is to seed the random 
number generator. We must do this be- 
cause the Microsoft random number rou- 
tine always generates the same sequence 
of numbers if not seeded, thus giving 
everyone the same set of keys. We can 
enter any number from 1 to 9999999. 
The length of the seed is probably the 
main weakness of this RSA implementa- 
tion. Given enough resources and the 
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Microsoft random number generation 
routine algorithm, I theoretically could 
go to any supercomputer or use a room 
full of microcomputers to generate all 
10 million key sets. Then when you 
publish your public key, I could look it 
up, get the corresponding private key, 
and decrypt any of your messages. You 
could make my task more difficult by 
changing the value of KEYLENGTH and 
the associated values for the length of 
P and Q. 

The program randomly selects the 
length of P and Q while assuring that their 
ratio is not a simple fraction. Then both 
P and Q are generated by the same routine, 
GENPRM. The algorithm used by GEN- 
PRM follows. 


Generate Prime Algorithm 

Algorithm GENPRM (generate a prime 
number - after Knuth). This algorithm 
generates a prime number of length 
Len(PRIME). 


G1. [Get length of PO and K] Set Len(PO) 
= 2 * Len(PRIME) /3 and Len(K)= 
Len(PRIME) - Len(PO). Here, PO 
will end up being a prime number 
used to generate PRIME, and K will 
be a multiplying factor used to 
generate PRIME. 


G2. [Generate random PO and K] 
Generate a random value of PO of 
length Len(PO). Generate a random 
value of K of length Len(K). 


G3. [Make PO odd and K even] If PO is 
even, set PO=PO+1. If K is odd, 
set K=K-1. (PO must be odd to 
be a prime.) 

G4. [PO prime?] Test primality of PO. 
If PO is probably prime, go to Step 
G6. (Approximately Ln(PO)/2 num- 
bers will be tested before finding a 
prime.) 

GS. [PO not prime] Set PO = PO + 2 and 
repeat Step G4. 

G6. [Adjust K] Find K such that K is 
even and K mod 3 = PO mod 3. 

G7. [Get trial PRIME] Set PRIME= 
n * PO:+ fT. 

G8. [PRIME prime?] Test primality of 
PRIME. If PRIME is probably prime, 
go to Step G10. (Approximately 
Ln(K * PO)/6 numbers will be tested 
before finding a prime.) 

G9. [PRIME not prime] Set PRIME= 
PRIME + (6 * PO) and repeat Step 
G8. (Keeping K mod 3 = PO mod 3, 
K even and PRIME=K *PO+1, 
implies K=K+6 at this iteration. 
Substituting the new K into the equa- 
tion for PRIME produces the above 
PRIME adjustment.) 

Gl0.[Check PRIME+1] Find greatest 
common divisor of (PRIME + 1). If 
the greatest prime factor of (PRIME 
+ 1) is less than 100,000, then go to 
Step G9. Otherwise, terminate the 
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algorithm and return PRIME. 

With P and Q determined, N and D 
can be calculated. The public key, N, is 
found by N=P * Q and is of length Len(P) 
+ Len(Q)=KEYLENGTH. The private 
key, D, is found by picking D such that 
D<N and (3 * D) mod (P-1) *(Q-1) = 1. 
This statement is equivalent to D=2 * 
((P-1) * (Q-1)+ 1)/3. We now have our 
keys. After all of this trouble, we certainly 
want to save them so that they can be used 
in the encryption/decryption process. 

Finally, we are ready to look at the 
encryption/decryption process. This proc- 
ess is the topic of the next section. 


Encryption/Decryption 


This section will be fairly short be- 
cause we have already taken a look at the 
encryption/decryption process in the 
beginning of the last section. Listing Eight 
(page 56) depicts the encryption/decryp- 
tion process. Again, the definitions of 
BYTEMODULUS and KEYLENGTH ap- 
pear near the start of EDCRYPT.RAT. 
Note that they must be the same values 
used in the key generation process! 


We start with a clear text message 
X = {x1l,x2,...,xn} where O<xk<N. 
If xn, the final block, is less than the cube 
root of N, terminate the block with an 
End of File character and pad xn by con- 
catenating random characters to the end 
of the block. I use ASCII control char- 
acters except “Z, which is the CP/M End 
of File character. To encrypt each block, 
xk, we look at each character of xk and 
strip off the most significant bit; this en- 
sures that 0 < char(xk) < BYTEMOD- 
ULUS. Next we form yk = (xk ** 3) mod 
N. Finally, we scan each character of yk 
and set the most significant bit if it is an 
ASCII control character. This action 
prevents a “Z or some other character 
from giving the RATFOR library character 
I/O routines a problem. The encrypted 
blocks Y={fyl, y2,..., yn} are sent to 
the intended receiver. Note that each 
encrypted block, yk, is of length Len(N). 


As the authorized receiver, we can 
now apply our private key to decode the 
received message. We reblock Y into 
blocks of length Len(N). We take each 
block, yk, in turn. Each character (byte) 





Encryption Key - Len(N) &N 
20 
26 26 45 90 98 127 6 31 90 33 86 86 13 99 35 121 110 14 44 77 


Decryption Key - -Len(D) &D- 
20 | 


17 60 30 60 65 127 46 49 0 90 98 46 40 95 60. 13 5 79 10 83 


First Prime - Len(P) &P 
7 
38 117 16 61 54 24 123 


Second Prime - Len(Q) & 0 
13 


86 25 25 67 16 80 45 20 85 30 97 67 87 


Figure 1A. 


Keys and Primes generated by GENPKEYS. KEYLENGTH = 20 and KTIMES = 5. 


This is an example of th RSA encryption/decryption algorithm. This example 
uses a KEYLENGTH of 20 (140 binary digits), a P length of 49 binary digits, 
and a QO length of 91 binary digits. The random number seed was 1111111. 
The number of prime tests was reduced from 30 to 5. It took approximately 
00:52:38 to generate the keys. It took about 00:08:02 to encrypt this file and 


03:18:46 to decrypt the encrypted file. 


For a RSA witha KEYLENGTH of 90 (630 binary digits), it takes approximately 
11 days to generate the keys. The computer used to perform the algorithm was a 
Z80-based machine running at 4Mhz under MP/M 2.0 (single user). 


Figure 1B. — 


Clear (Plain) Text to be encrypted. 


is scanned and the most significant bit is 
stripped, returning the character to its 
original encrypted form. We now apply 
the inversion operation, xk = (yk ** D) 
mod N. The final block, xn, is scanned 
from the last character to the first char- 
acter, looking for the End of File char- 
acter to find the end of the original text. 
The blocks X = {x1,x2,...,xn} are as- 
sembled into the decrypted, clear text. 
EDCRYPT.RAT performs these basic 
operations, as well as selecting the files to 
encrypt/decrypt and the necessary file I/O. 

Figure 1 (below) shows an example 
of generated keys, clear text, encrypted 
text, and decrypted text. The values of 
KEYLENGTH and KTIMES have been 
reduced to permit a reasonable amount of 
execution time: KEYLENGTH was set to 
20 instead of 90 and KTIMES was set 
to 5 instead of 30. It took almost an 
hour to find the keys. The encryption of 
CLEARO.TXT into ENCRYPTO.TXT 
took about 8 minutes and the decryption 
of ENCRYPTO.TXT to DECRYPTO.TXT 
took nearly 3 hours and 19 minutes. 
When I used the original values of KEY- 
LENGTH and KTIMES, I found that it 
took almost 11 days to find the keys. 

To test how much an arithmetic 
coprocessor might increase performance, 
I used an AMD 9511 and the Redding 
Group APU Fortran library. Unfortu- 
nately, the library did not include a ran- 
dom number generator and the Microsoft 
module would not work with the APU 
library. Therefore, I had to substitute the 
random number routine found in Listing 
Nine (page 59). With these changes and 
using the reduced example above, I found 
that the routines executed in about half 
the time (key generation in 1:20, encryp- 
tion in 0:04, and decryption in 1:33). 
The key generation took longer because 
the random number generator was not 
the same and different keys were pro- 
duced. Encryption/decryption, however, 
used the same keys produced by the non- 
APU version to keep comparisons as close 
as possible. As I have pointed out before, 
optimizing the multiple-precision arith- 
metic and Russian Peasant routines 
could also have a great impact on the 
performance. However, I will leave that 
as an exercise for the reader. 

One final topic remains. How can we 
sign our messages so that the receiver 
knows without a doubt that we sent the 
message? Digital signatures provide the 
answer. 


Digital Signatures 

Now, let’s consider a little “Spy vs. 
Spy,’ a la Mad Magazine. White 1 wants 
to send secure messages to White 2. How- 
ever, Black is always capable of inter- 
cepting the transmitted messages and sub- 
stituting his own messages. The ability of 
Black to intercept and substitute causes 
some significant problems for White, 





36 


Dr. Dobb’s Journal, April 1984 





e.g., risk of dirty tricks and crosses over 
the eyes. The problem is: How can White 
2 be sure that a received message from 
White 1 is the real thing and not a setup? 

A plain text signature is no good, 
since Black could sign the message with 
White 1’s name before encrypting the 
message with White 2’s public key. How 
can White use the RSA-PKS system to 
confirm that a message was sent from a 
friend? Well, assume that there are public 
keys that are published in something like 
the phone book. Anyone is able to take 
his plain text message and pass it through 
the encryption algorithm using another’s 
published, public key. 

Let’s go back to the section on mod- 


ulo arithmetic and look at the commuta- 
tive property of exponentiation. Eureka! 
We find that: 


X = ((X ** 3) ** D) mod N 
= (((X ** 3) mod N) ** D) mod N 
= (((X ** D) mod N) ** 3) mod N 


That is, the order of encryption and 
decryption algorithm application does 
not matter. Thus, White 1 can take his 
clear text message, X, and encrypt it 
with his private key, Dm, then encrypt 
the result further with White 2’s public 
key, Ni, and finally send the resultant 
message, Y, to White 2. 


Ysig = (X ** Dm) mod Nm 
<— Signature Step 


Y = (Ysig ** 3) mod Ni 
<— Encryption Step 
Black cannot read the message! To 
read the message, White 2 reverses the 
process. The message, Y, is passed through 
White 2’s private algorithm, Di, and a yet 
garbled message is found. White 2 suspects 
that White 1 sent the message, so White 2 
passes the resultant message through 
White 1’s encryption algorithm, Nm, and, 
lo and behold, White 1’s plain text mes- 
sage, X, appears. 


Ysig = (Y ** Di) mod Ni 
<-— Decryption Step 

X = (Ysig ** 3) mod Nm 
<— Signature Verification Step 
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Figure 1C. 


Encrypted Text using Encryption Key in a iQ and 
Clear lo in Figure iB, 
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White 2 is now sure that the message came 
from White 1 because no one else could 
know Dm! Black could not make a sub- 
stitution because he cannot know White 
l’s private key, unless White 1 has sloppy 
security procedures. 

To review the process, the encryption 
of a message using digital signatures 
consists of: 


Y = (((X ** Dm) mod Nm) ** 3) mod Ni 
The decryption process consists of: 
X =(((Y ** Di) mod Ni) ** 3) mod Nm 


That is all there is to it. For further in- 
formation on the use of digital signatures, 


you should read the articles in IEBE 
a 


Computer Magazine, February 198 
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Summary 


We have covered a lot of material in 
these two parts. In the first part we looked 
at RATFOR, modulo arithmetic, multiple- 
precision arithmetic, and the Russian 
Peasant algorithm. We saw that these 
routines form the core of the RSA-PKS 
cryptography system. 

In this second part we revisited RAT- 
FOR to look at the RATDEF file and 
some of the RATFOR library routines. 
The RATDEF file contains some basic 
keyword and character definitions. The 
library routines add character I/O to the 
basic Fortran library. 

Next, we looked at Public Key Sys- 
tems and found what made them advan- 
tageous. We do not have to worry about 
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key distribution, because the public key 
can be made accessible to anyone without 
worrying about compromising the encryp- 
tion/decryption process. The public key 
does not provide any information about 
the private key. 

Third, we looked at the generation 
of large prime numbers. We used Fermat’s 
theorem to test odd, positive numbers 
for primality. The test was a probabilistic 
test that has a finite probability that a 
reported prime number is not prime, even 
though the probability is very small. How- 
ever, if a number is said to be not prime, 
then it is definitely not prime. 

Fourth, we looked at the generation 
of the public and private keys. We used all 
of the previously developed routines to 
generate the prime factors of the keys, 
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USE MAGIC/L 
TO WRITE 








For just $295 MAGIC/L™ is yours. And suddenly 
you find you’ve bought more than a language. 
MAGIC/L is an entire interactive environment: 
an assembler, a compiler, an editor, an I/O pack- 
age, and a system call facility are all wrapped up 
and delivered. And now MAGIC/L is available 
for CP/M-based computers. 

MAGIC/L is easy to learn. It has syntax similar 
to C and Pascal, and because it’s extensible as well 
as interactive, it dramatically increases productivity. 

Program development features include a built-in 
text editor, command line recall, CCP. STAT, and 
PIP command emulation, and the ability to store 
keyboard dialog on disks. 

Key language features include: CHAR, INTEGER, 
LONG, REAL, and String data types; record struc- 
tures similar to the STRUCT facility in C; anda 
complete I/O package that can provide random 
access, variable length I/O to any CP/M file. 





And MAGIC/L offers great portability. Source 
code which runs on CP/M can be compiled 
unmodified and run on any other processor. 

Typical applications include hardware interfac- 
ing, process control, games creation, interactive 
graphics and image processing. MAGIC/L has 
made programming easier for DEC, 68000, and 
Data General users. Now it’s working for CP/M 
users too. 

MAGIC/L provides everything you need to 
write a complete program. But the only way to be 
convinced is to try it yourself. Send us your $295 
check or money order—we also accept Master- 
Card and VISA—we’ll send MAGIC/L for CP/M to 
you at once. A full money back guarantee is part 
of the package. Once you’ve sampled that first 
program, you'll have to try another . . . and 
another . . . and another. MAGIC/L. . . it’s more 
than a language. 


MAGIC/L.. . It’s more than a language 





LOKI ENGINEERING, INC. 


30 Wheeler St., Cambridge, MA 02138 (617) 576-0666 


Circle no. 31 on reader service card. 


MAGICIL is a trademark of Loki Engineering, Inc. 
DEC is a trademark of Digital Equipment Corporation. 
CP/M is a trademark of Digital Research, Inc. 








P and Q. These prime numbers were then 
used to generate the public and private 
keys, N and D, respectively. 

Next, we used the keys to encrypt 
and decrypt plain text messages. We saw 
how to block out the messages to encode 
or decode them. We found that we must 
pad the last block if it is too short to keep 
someone from easily decrypting it. Also, 
we found that using an APU can halve the 
time required to perform the encryption/ 
decryption process. 

Finally, we looked at digital signa- 
tures. We saw that another person could 
Sign a message digitally by encrypting 
the message initially with their private 
key and then encrypting the result with 
the intended receiver’s public key. The re- 
ceiver reverses the process to confirm that 
the message was sent by the signee. 

I hope you have enjoyed this article 
and found it understandable and educa- 
tional. I owe Donald Knuth most of the 
credit for this article, since his book was 
the major contributor to my _ under- 
standing of the RSA-PKS cryptography 
system. Of course, this article would 
not have been possible without the basic 
papers of Diffie and Hellman and of Rivest, 


Shamir, and Adleman. As I stated pre- 
viously, I am sure there are better ways 
to implement the algorithms and even 
better and more efficient algorithms that 
could be used to improve the performance. 
I invite you to improve any part of what 
I have. presented. 
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RSA (Text begins on page 30) 
Listing Six 


Copyright © 1983, Charles E. Burton, Denver, Colorado. 
All rights reserved. Permission granted to use this software for personal, noncommercial purposes only. 


# FROGRAM NAME: 
# FURPOSE: 


FRIMTEST.RAT 
This routine is a probabilistic test for the primality of a number . 


# If the test is true, there is a probability of (1/4)**kK that the 
Gad number is not prime. The test is based on Fermat’s Theorem. 
# (re. D.E. Enuth, The Art of Computer Frogramming, V. 2 
e (Semi-Numerical Algorithms), 2nd Ed., (Addison-Wesley, Reading, MA) .« 
# pp. 374-380. ) 
2 
# LANGUAGE:  RATFOR 
# AUTHOR: CER 
# USAGE: LOGCL=PRMTST(PRIMEQ, LENF', WORK, LENW, MODULO) 
* “PRMTST -- Logical function, indicates that the number in 
# question (PRIME@) is probably prime with probability 
# 1-(1/4)**#K. FPRMTST = .TRUE. if probably prime, 
4 and .FALSE. if it is definately not prime. 
# oPRIMEG -- Byte array, contains the number (byte modulus MODULO) 
cs to be tested. The MSDigit‘(s) are in PRIMEQ@(1) and 
# the LSDigit(s) are in FPRIMEQ(LENP). 
& BauT TON: . PREMEe > 2 
cad *LENF -- Integer variable, defines length of PRIME@ array. 
# “WORK -- Byte array, a working array needed to do test. 
+ *LENW -- Integer variable, defines length of WORK array. 
CAUTION: LENW = 7 * LENF + 3 
cd »MODULO -- Integer variable, defines the arithmetic modulus that 
% is to be used. MODULO has a byte-wide effect and 
# should be between 2 and 128 (e.g. 100 for Decimal 
# Numbers and 128 for ASCII Characters). 
# 
(Continued on page 42) 
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Mylstar Symbolic Debugger V1.1 Bays ss 


The plain and simple difference is that Mylstar’s 
Symbolic Debugging Program speaks to your IBM 
PC in a language you both can understand, plain 
and simple. 

Employing the same command structure, it 
allows you to use symbol names, mathematical 
expressions, batch files, on-line help, multi- 
command macros and other time-saving entries. 


TO ORDER... 
Call (312) 562-7400 or mail coupon today. 


“Designed for 1|BM PC-DOS 1.1 with 128K RAM minimum 


MYLSTAR 
ELECTRONICS 


INC. 


165 West Lake Street 
Northlake, Illinois 60164 





A Columbia Pictures Industries Company 











Original IBM Debug Program 
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is Mylstar’s 
Symbolic 





Debugging 
Program” 


It's the enhancement to the /BM Debug 
Program you've been looking for—because it fills in 
the gaps—shortening the frustrating debugging 
process by as much as 50%— leaving you more time 
to do the work you need to do and the work you want 
to do, plain and simple. 

Mylstar’s Symbolic Debugging Program has 
been programmer-tested for over a year at Mylstar 
Electronics, Inc., (formerly D. Gottlieb & Co.), 
designers of the video arcade game, Q*BERT™ 


eee paar ccna 5 


Mylstar Electronics, Inc., 
165 W. Lake St., Northlake, IL 60164 


Please send me Mylstar’s Symbolic Debugging 
Program for use with the IBM PC computer. Enclosed 


is $125, plain and simple. 
[) Check (| Money Order 118 


NAME 
FIRM 


ADDRESS 
CITY STATE ZIP 


Illinois residents add 7% sales tax 
Allow 2-4 weeks for delivery 
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RSA (Listing Continued, text begins on page 30) 
Listing Six 


# ARRAYS USED: FRIMEQ(*) 

# EXTERNALS: RPEXF,MPSUBT 

# UPDATE HISTORY: INITIAL RELEASE -- 01/25/83 CER 
# 


define (KTIMES, 30) # number of times, FE, to test FPRIME® 
logical function prmtst (primeq, lenp, work, lenw, modulo) 


character backi(4) 

byte primeq(1),work(1),one,notprm 
logical xflag 

integer lenp,lenw, modulo 


data back3/BRACKSPACE, BACKSFACE, BACKSPACE, E0S/ 


data one/ti/ 

data rndnxt/.5/ # make RAN(*) generate the next random number 
# (any positive number will do) 
# #*** could seed it with a prior call to RAN(—.xxxxxx) 
oad where <xxxxMMEM ls) entered by the user #** 


prmtst=.false. # initialize to indicate not prime 

HHFHHHE 

# 

# The following test assumes FRIMEQ@ != 5 (i.e. the prime number 5S is not 
# sought). If assumption is invalid them remove this test. 


lsdig=primeqilenp) # get the LSDigit of FRIME® 
if C(modulo > 5) & (mod(lsdig,S) == 0)) # PRIME@ divisible by vat ig 
return # no need to check further so Exit !'° 


# 

HoH eRe 

idxprm=1 # initialize pointer to ist digit of PRIME 

while (primeq(idxprm) == 0 & idxprm <= lenp) # digit is zero 


idxprm=idxprm+1 # move index to next position 
lenpO=lenp-idxprm+ti # get length of right justified prime 
if ((lenw 3= 7¥lenpoOt+S) & (lenpO += lenp) & 
((lenpoO '= 1) | (primeq(1) > 2))) # work array has sufficient length 
# and PRIME@ > 2? 


E58 
\ 


idxexp=lenpO+i # get index to exponent 
call mpsubt (primeq(idxprm),lenpO,one, 1,work (idxexp), lenpO, modulo) 

# generate (PRIMEG - 1), i.e. exponent 
idxrlt=idxexptlenpoO # get index to RESULT: X ** (FRIMEQ-1) mod FRIME® 
idxscr=idxrlt+lenpO # get index to scratch work area for calculations 
fmodul=float (modulo) # float MODULO 
notprm=NO # initialize Not Frime flag 


call remark (°* Test Number: .*) # indicate test running 
do i=i,ETIMES # test for primality 
{ 


call putdec(i,3) # show test number 
call remark(back3) # backspace 3 
idxnx=1 # initialize index to X 
idigit=primeq(idxprm) # get ist digit of FRIME® 
if ¢idigit == 1) # first digit a 17 
{ 
xflag=.true. # indicate ist digit of X is zero 
ix=0O # force X < PRIMEQ 
else # first digit + 1 


{ 
(Continued on page 45) 
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GTEK’ 


EPROM PROGRAMMER 


Model 7128-L1,L2,L2A . $239 .00 






i y ] Model 7128-24... 200s. $329 .00 
DEVELOPMENT HARDWARE/SOFTWARE Nee Re Pan ah 
A DR8PGX or DRSPGX . ean Ae 

‘f ? Cross Assemblers ..... $200. 
HIGH PERFORMANCE/ coST RATIO / CAM Lee 
d U/V Eraser DE-4...... $ 78.00 
(601) 467-8048 RS22 Choices $ 30.00 
87Sb adapter ziy.heis 2: $174.00 
8755. adapter fa. $135.00 
Pte 48 Family adapter.... $ 98.00 


Compatible w/all Rs 232 seria! interface port * Auto 
select baud rate * With or without handshaking * 
Bidirectional Xon/Xoff and CTS/DTR Supported * 
Read pin compatible ROMS * No _ personality 
mcdules * Intel, Motorola, MCS86, Hex formats * 
Split facility for 16 bit data paths * Read, program, 
formatted list commands * Interrupt riven, 
program and verify real time while 
sending data * Program single byte, 
block, or whole EPROM * Intelligent 
diagnostics discern bad and erasable 
EPROM * Verify erasure and compare 
commands * Busy light * Complete 


VAC/SOHz available) 


DR Utility Package allows communica- 
tion with 7128, 7228,.and 7956 $549 
programmers from the CP/M com- MODEL 
mand line. Source Code is provided. 7316 | 
PGX utility package allows the same 4 
thing, but wil also allow you to specify 
a range of addresses to send to the 
programmer, Verify, set the Eprom 
type. 


MODEL 7316 PAL PROGRAMMER 
Programs all series 20 PALS. Software ' 
included for compiling PAL source 
codes. : ; 
Software Available for CPM, ISIS, 

3 





GANG PROGRAMMER 
w/Textool zero insertion force socket Intelligent algorithm. Stand alone, 
and integral 120 VAC power (240 copies eight EPROMS at a time. ff ; ‘ 

With RS-232 option $1099. er ey sas ss aaa 


















$879 stand alone 
MODEL 7956 













MODEL 7228 
EPROM PROGRAMMER 
All features of Model 7128 plus 
Auto Select Baud __, super fast adaptive 


MODEL 7956 


_ programming algorithms, low profile 
aluminum enclosure. Programs 2764 
in one minute! 





MODEL 7128 EPROM PROGRAMMER 


TRSDOs*msDos* 


TM of Intel Corp. 
TM of Tandy Corp. 
TM of Microsoft. 


& wn 


Post Office Box 289 
Waveland, Mississippi 39576 
[601]-467-8048 


TM of Digital Research Corp. 


Avocet Cross Assemblers are 

available to handle 8748, 875], 

Z8, 6502, 680X, etc. 
Available for CP/M _— and 
MSDOS computers. Order by 

pet ylang type and specify 
ind of computer. 


Model DE-4 U/V Products 
hold 8, 28 pin parts. High 
quality professional construc- 
tion. 





$1195 
MODEL 
7324 


MODEL 7324 PAL PROGRAMMER 
Programs all series 20 & 24 PALS. 
Operates stand alone or via RS232. 


Programs and Read: 


NMOS NMOS CMOS 


EEPROM MPU’S 


LET YOUR MICRO DO THE DIRTY WORK 


Circle no. 23 on reader service card. 


SO YOU CAN CONCENTRATE ON PROBLEM-SOLVING 
Handle more data and solve more complex problems, with 


CALCULUS FOR SCIENTISTS AND ENGINEERS 
Produced by SCIENTIFIC § OFTWARE, INC. 


Computer software that performs 
all the functions of calculus! 


Calculus does single, double, and triple 
integrations; nth order systems of ordinary 
differential equations; and locates minima, 
maxima, and zeros of a function. Its 
innovative algorithms minimize the lengthy 
execution time associated with programma- 
ble calculators or software books, where 
programs have to be keyed in. 


A program that’s as flexible as you 
need it to be 


Calculus quickly plots and tabulates a 
function and its derivatives, and then displays 


both on the screen or in hard copy printout, 
the way you want to see it. 





And it’s easier to use than your 
calculator. 


By using menus and prompts, you can 
choose when and where to change your 
inputs without prior preparation. As fresh 
numerical data appear with each successive 
iteration, you have the option to see results 
of earlier iterations. You can stop consecutive 
iterations as soon as you’re within reach of a 
specified accuracy. 


Name any calculus problem— 
Calculus provides the answer. 


CALCULUS FOR SCIENTISTS AND 
ENGINEERS 

comes in two versions, for the Apple® II/Ile 
with 48K memory and for the IBM PC with 
64K memory. 


Apple II/Ile version: (0 471 88205-4) $125.00 
IBM PC version: (0 471 88048-5) $125.00 


Unlocking the power of computing 


Circle no. 66 on reader service card. 


2508 2758 2TC1G6.* 5213 8748 
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Look for Wiley Professional Software at your 


local computer store or bookshop. For faster 
service 


CALL TOLL FREE: 
1 800 526-5368 


In New Jersey, call collect (201) 342-6707 
Order # 4-1718 


VISA, MasterCard, and American Express 
accepted on phone orders. 


Wiley Professional 


Software 
a division of John Wiley & Sons, Inc. 


605 Third Avenue New York, NY. 10158 
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Don’t call her cheap. Call her beautiful. 


The Bonnie Blue’ 


Word Processing System for the IBM Personal Computer 





It’s obvious what makes her so cheap, but what makes 
Bonnie Blue so beautiful? Bonnie Blue is a new and easy-to-use 
word processing program for the IBM Personal Computer. 


The Full System. The Bonnie Blue System includes in one 
program a full screen Editor, a Printing module and a useful 
Toolbox. It includes the features you've come to expect, and 
more: 


complete cursor control: by character, word, line; page up and 
down instantly; go to top, bottom of document; auto scroll 
towards top or bottom 

word wrap 

margin justification, centering 

adjustable margins, tabs, indents 

reformat paragraphs 

move, copy, delete, paste blocks 

find with delete, insert, replace and wild card characters 

keyboard remapping 

multi-line headers, footers 


Bonnie Blue can handle lines longer than the screen is wide, 
by horizontally scrolling the line. And, unlike some programs, 
Bonnie Blue lets you include any displayable character in your 
text, such as block graphics and foreign language characters. 


Unique Features. With Bonnie Blue, you can “paint” 
display attributes onto your text, by the character, word, or 
line, or automatically as you enter text. With the monochrome 
adapter, you can paint any combination of underlined, bold, 
reverse video or blinking. With an 80 column monitor and the 
color/graphics adapter, this translates into a palette of 16 color 
combinations to choose from. And if your computer has both 
monitors, Bonnie Blue lets you use them both, shifting back 
and forth as you wish. 


IBM Personal Computer is a trademark of IBMCorp. Epson Graftrax Plus is a trademark of Epson America Inc. 


Be ile EE 


Bonnie Blue Software 


[] Send me the Bonnie Blue System. | am 
enclosing $50 (NY State residents please 
add 7% sales tax). 


[J Check enclosed © VISA © MasterCard Sorry,noCOD. 








Post Office Box 536 
Liverpool, NY 13088 


(] Please send literature. 
Ebel AE mae 





Powerful Printing Module. You can use these colors or 
display attributes to highlight text on the screen, and Bonnie 
Blue can remove them from file when you want (all files 
created by Bonnie Blue are DOS standard). The Printing 
module understands these text attributes, and you can map 
them into any single printer function or combination. 

For example, normally you would want underlined text to 
print underlined. But you can tell Bonnie Blue to print 
underlined characters as both underlined and bold. Bright text 
on the screen can mean double struck, or emphasized and in 
italics. You are at the controls. 

The first Print formatting module supports all the text 
capabilities of the Epson MX series with Graftrax Plus. By the 
time this ad appears, we will be supporting other popular 
dot-matrix and letter quality printers. 

More than thirty “dot” commands give you added control of 
the format of your finished document. You can send it to a disk 
file instead of the printer, or preview the final page formatting 
on the screen. 


Toolbox. The Toolbox isa set of useful functions, called 
“filters” that allow you to extract information from your files 
and transform their content. With these tools, you can join 
files together, sort lines of text, count words, find and 
substitute patterns, etc. Writers and programmers find this a 
useful collection of productivity enhancers. 


Bonnie Blue is also great for a hard disk system. A thorough 
User’s Guide, complemented by help screens and roadmaps, 
make the Bonnie Blue an exceptionally easy-to-learn and 
easy-tO-use system. 

Order yours today, or send for our free brochure. Bonnie 
Blue is available exclusively from Bonnie Blue Software, 
P.O. Box 536, Liverpool, NY 13088. 





Minimum 





Credit Card No. Expires recommended system: 
IBM PC, 128K, 2 disk drives, 
Signature PC-DOS 1.1 or 2.0, 80-column 
monitor or monochrome adapter, 
Name ae i tid oe se ee 
or both, Epson MX-80 or 
Address MX-100 with Graftrax Plus. 
ei Peo oe Versions available soon for PCjr. 
Compan yc f2. Sho hs ee Se ee Write for details. 
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RSA (Listing Continued, text begins on page 30) 
Listing Six 


xflaq=.false. # indicate ist digit of X is non-zero 
repeat # get first digit of xX 


ixn=mod lint (fmodul*ran(rndnxt)),idigit) 
# force X « PRIME® 


g. 
4 


until (Clenpo != 1 & ix '= 0) {| (lenpo == 1& ix } 1)) 


# ist digit of X is valid 


work Cidxx)=i1x # initialize ist digit of xX 
Ldxx=1dxxtl # move index to next position 
while (idxx == lenp®) # generate a random integer 
Re Loe Ee Pe 
q £. 


if (xflag) # second digit of X needs special handling? 
{ 
xflag=.false. # indicate 2nd digit of X is non-zero 
repeat # get second digit of xX 


Lx=mod (int (fmodul #ran (rndnxt)), modulo) 
# force X 3= 2 


+ 
=] 


until (Clenpo != 2 & ix != @) {| (lenpo == 2 & ix } 1)) 
# 2nd digit of X is valid 


y, 


else # FRIMEQ < xX < 1 


ix=mod (int (fmodul*rani(rndnxt)),modulo) # get next 
# digit 
work (idxx)=ix # load next digit of xX 
Ldxx=1dxx+l # move index to next position 
call rpexp (work, lenpO,work (idxexp),lenpO,work (idxrlt),lenpo, 
primeqfidxprm),lenpoO,work (idxscr),4*#lenpot+3, modulo) 
# generate RESULT = X #* (FPRIME@ ~-1) mod FRIMEOQ 


# , 

# RESULT = (X *#* (FRIMEQ-1) mod FRIME@) '= 1 --> not prime 
+ : 

1dxwrk*i1dxscr-2 # get index to Digit above LSDigit of RESULT 
if (work (idxwrkt+i) t= 1) 8 LSDigit: of RESULT -—-—> ‘not-.pri ne? 


notprm=YES # indicate Not Prime 
else # check rest of Digits 


A Fy 
& 


while (idxwrk = idsxrlt) # check the rest of RESULT’s 
# Digits 
£ 
if (work(idxwrk) !'= 0) # not prime? 


A 55 
LS 


notprm=YES # indicate Not Prime 
break # leave WHILE loop 


* 
Ldxwrek=ildxwrk-1l # move index to next position 
me 
: 


5 
2 


if (notprm == YES) # not prime”? 
break # leave DO loop 

if (notprm == NO) # high probability FRIMEQ is a prime? 
prmtst=.true. # indicate probably prime 

else # cannot test FRIMEQ 


¢ 


(Continued on next page) 
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RSA (Listing Continued, text begins on page 30) 
Listing Six 


Calirmek ina 
call error(*Length of CWOREK] too small or CRPRIMEQ] <= 2 'tt.*) 
# print message and exit 
return 


end 


End Listing Six 
Listing Seven 


Copyright © 1983, Charles E. Burton, Denver, Colorado. 
All rights reserved. Permission granted to use this software for personal, noncommercial purposes only. 


# FROGRAM NAME: GENPEEYS. RAT 

# FURFOSE: This routine generates the public keys for the RSA 
(Rivest-Shamir-Adleman) Fublic Key Encryption/Decryption System. 
It uses the method described by D.E. Enuth, The Art of Computer 
Frogramming, V. 2 (Semi-Numerical Algorithms), 2nd Ed., (Addison- 
Wesley, Reading, MA). pp. 386-289. 


LANGUAGE: RATFOR 
AUTHOR: CER 
USAGES *##HHHHH Cmain program) 


ARRAYS USED: FC(KEYLENGTH) ,Q(FEYLENGTH) ,N(CKEYLENGTH) ,D(CKEYLENGTH) , 
WORE. (WORE.LENGTH) 

EXTERNALS: MFADD, MFPSUBT,MFMULT,MPDIV,RFEXP,PRMTST 

UPDATE HISTORY: -INITTIAL RELEASE -—— O1/ 26/63: CER 


+tHeHtHHHH HHH HH HH +H + 


define (KEYLENGTH, 970) # length of key for characters (assume 80 char. lines) 
define (WORELENGTH, 819) # length of WORE buffer for characters 

#: (9% KEYLENGTH) 
define (BYTEMODULUS,128) # byte modulus for characters (1 character/byte) 


definetLUNOUT,&) # output logical unit 
program pubkey 
character type 
byte p(RKEYLENGTH), q(KEYLENGTH) ,n (KEYLENGTH),d (KEYLENGTH) .work (WOREKLENGTH) , 
one, two, three 
double precision seed # allow entry of up to 8 characters 
equivalence (seed,woark(])) 
data one,two,three/1,2,3/ 


data rmndnxt/O.5/ # positive number needed to generate next random number 
data modulo/BYTEMODULUS/ # get byte modulus for arithmetic 


write (CONSOLE, 100) 


100 foarmat(ix,* Enter a seed for the random number generator (XXXXXXX): *) 
read (CONSOLE, 200) seed 
290 format (a7) 


rndist=0.0 # initialize random number seed 
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dao i=1,7 # generate random number generator seed 
t 
if (type(work(i)) == DIGIT) # entry is a digit? 
inum=work(i)-DIGO # get value of seed digit 
rndist=10.,0erndist+floatlinum) # add digit to seed 


%, 
2 


else # non-digit found 
break # exit DO loop 
rndist=-rndist/1.0e87 # -1.0 < seed <= oO 
call ran(rndist) # seed random number generator 
len=KEYLENGTH # get key length desired (i.e. length of FP * @) 
lendel=4+int (3. 0#ran(rndnxt)) # get a delta length between 4 and 7 
# (1.e. FP and @ length diff. of 8 and 12) 
lenp=len/2-lendel # get desired length of prime factor F 
lenq=len-lenp # get desired length of prime factor @ 
Gait rmarkinc: "> 
call rmrkin(*Generating F.*) 
call genprm(p,lenp.work,modulo) # generate prime factor F 
Call rmrkin(’.*)3 call rmrkin¢t’.*) 
call rmrkin(*Generating @."*) 
call genprmiq,leng,work,modulo) # generate prime factor @ 
# 
# generate the Fublic Rey encryptor: 
ad N= P * @ 
R 
call rmrkin¢(*.*)s call rmrkin¢*?.?) 
call rmrkin(*Generating N.*) 
call mpmult(p,lenp,q, leng.n,len,madulo) 
idx1=1 # get index to ist digit of N 
(Continued on next page) 








AVAILABLE 


Back Issues 






1982 
No. 64— Feb. No. 66— April No.68 —June 
No.69— July No.70— Aug. No.71—Sept. 
No.72 —Oct. No.73 — Nov. No.74— Dec. 






1983 


No.75 —Jan. No.76— Feb. No.77—March 
No.78 — April. No.80—June No.8 1—July 
No.82— Aug. No.83—Sept. No.84—Oct. 
No.85 — Nov. No.86— Dec. 


1984 
No.87 — Jan. No.88 — Feb. No.89 — March 





Break Through the 
64K Barrier! 







FORTH-32™ lets you use up to one megabyte 
of memory for programming. A Complete 
Development System! Fully Compatible 
Software and 8087 Floating Point Extensions. 
















™“ Call today toll-free or 
contact a participating 
Computerland store. 










Quest Research, Inc. 


303 Williams Ave. 


setae 800-558-8088 


TO ORDER: send $3.50 per issue to: 
Dr. Dobb’s Journal, P.O. Box E, Menlo Park, CA 94026. 







—_—_—_— OO eee 


name 






Now available for the IBM PC, PC-XT, COMPAQ, COLUMBIA MPC, 
and other PC compatibles! 





AUALESS 


address 


city state zip 






IBM, COMPAQ, MPC, and FORTH-32 are trademarks of IBM. COMPAQ, Columbia Data Products, and Quest Research, respectively. 






Circle no. 63 on reader service card. Circle no. 48 on reader service card. 


a a 


Dr. Dobb’s Journal, April 1984 47 





RSA (Listing Continued, text begins on page 30) 
Listing Seven 


while (néidx1) == ©) # find ist non-zero digit of N 
idxl=idxi+1 # advance to next position 
if ¢(idsi 2 1) # need to shift N to make ist digit non-zero (‘since modulus 


# of exponential operation cannot have a leading zero)? 


t 


len=len-(idxi-1) # adjust length of N 
do idx2=1,len # left justify N, stripping zeroes 
idx S=idxitidx2-1 # get index to digit to move 
ntidx2)=n(idx3) # left justify N 
+ 
# generate Fublic Key decryptor. 
# Kee Ceo 1) ee Ok Pe ae AN Rm 7, eke 3 
2 
Call ermarkint' a) ; 
call rmrkin(* Generating D.*) 
leni=maxO(lenp,leng)+1l # get length of (P + @) 
call mpadd(p,lenp,q,jlenq,work,leni,modulo) # generate (F + @) 
idxi=leni+i # get index to result-of N - (F + @) 


call mpsubt (n,len,work,leni,work (idxl),len,modulo) # generate N — (F + ©) 
ide@=idxitlen # get index to start of result of (2 # CN = P= @) 


len2=lenti # get length of result of = * (N - F - @) 
call momult (work (idxi),len,two,1,work (idx2),len2,modulo) 

: : # generate 2 * (N - FP - @) 
work (1)=0 # insure Numerator starts with © for division normalization 
do idx=1,len2 # copy Numerator eae 4b CINE et on > Be 

work (idxt+i)=work (idx2) | 
idxP=idx@+1 # advance index to next position 
+ 
leni=len2t+tl # account for extra digit in numerator 
idxP=lenit+ti # get index to quotient of <2 * (N - P - @ / Se 
len?=leni-1 # get length of quotient 
idxe=idx2@t+tlen2? # get index to remainder of <2 * (N- P - @) / S32 
Cats mpdiv (work, leni, three, 1,work (idx2),len2,work (idx) ,1,modulo) 
, # generate 2 * (N- P - Q) / 3 (i.e. Quotient) 
lenz=lenZ+i # get length of result of 2” (N- P - @ / 3 + 1 
call moadd (work (idx2),1len2,one, 1,work (idx3),lenS,modulo) 
# generate 2 * (N - F - @® | GABE DES. ay | 
do idx=1,len # copy 2 * (N- PF - 0) /°3 + 1 to D from LSDigit to MSDigit 
# Note: D< N, so Length(D) = Length (N) 
# LENS = LEN + 3 
{ 
idxi=len-idxt+i # get index to D 
idx D=idxatlen3-idx # get index to 2 * (N - Pos Sie oe ed 
dtidxi)=work(idx2) # move 2 * (N- FPF - @) / Se Err 
# send Keys to CONSOLE 
call rmarkint.” 
call rmrkin(*Keys and Key Factors.”*) 
write (CONSOLE, 300) len # N 
S00 format (1x.,20(13,1x)) 
write (CONSOLE, 300) (n¢idx), idx=1,1len) 
write (CONSOLE, 300) len # D 
write (CONSOLE,300) (d¢(idx), idx=i,len) 
write (CONSOLE,300) lenp # F 
write (CONSOLE,200) (ptidx), idx=1,lenp) 
write (CONSOLE,300) leng # @ 
write (CONSOLE, 300) (qtidx), idx=1,lenq) 


(Continued on page 50) 


er err 
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Full-screen text editor; designed 
to be used either with -TPL or by 
itself. 

¢ Full cursor control; 

¢ Insert mode with word wrap; 

¢ ‘Paint’ mode; 

¢ Single-keystroke or dual- 

keystroke commands; 
¢ Command synonyms; 


ue 
at 
wer 











The Text Processing Language. A 
text-file runoff program con- 
sisting of a set of text-processing 


PDMS 


The Pascal Data Management 





































primitive commands from which 
more complex commands 
(macros) can be built (as in Logo). 
Features include: 
¢ Complete customization of 
text processing through 
macro definition and expan- 
sion, looping structures, and 
conditional statements: 
¢ Adapts to any printer; 
e Pagination; 
¢ Text justification and center- 
ing; 
¢ Indexing and tables of con- 
tents; 
e Superscripts and subscripts; 
¢ Bolding and underlining; 
¢ Multiple headers and footers; 
e End notes and footnotes; 
¢ Widow and orphan suppres- 
sion; 
¢ Floating tables and ‘keeps.’ 


$50 


. q % 
gs! e: 
ayes 


CHROME 
Chromatography data analysis 
program: 
¢ Graphic display of analog 

data; 


e Panning and zooming; 

¢ Automatic peak-finding and 
baseline calculation; 

¢ Full interactive peak editing; 

¢ Computation of peak areas; 

e Strip charts on C. Itoh and 
EPSON printers. 


$100 


- DBX 


Blocked Keyed Data Access 
Module. Maintains disk files of 
keyed data. Can be used for 
bibliographies, glossaries, multi- 
key data base construction, and 
many other applications. 
¢ Variable-length keys; 
¢ Variable-length data; 
¢ Sequential access and rapid 
keyed access; 
¢ Single disk access per opera- 
tion (store, find, delete) in 
most cases; 
¢ Multiple files; 
¢ Dynamic memory allocation 
for RAM-resident index and 
current “page” of entries; 
e Includes demonstration pro- 
gram and testbed program. 


$50 
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Planimetry program: 
¢ Bit-pad entry of cross sec- 
tions; 
¢ Real-time turtlegraphics 
display; 
¢ Calculation of areas; 
¢ Saves calculations to text 


file. 
$100 







System. A user-oriented data 
management system in which 
numeric and alphanumeric data 
are stored in tables with named 
columns and numbered rows. 
Currently being used for dozens 
of different kinds of business and 
scientific applications, from in- 
ventory management to laborato- 
ry data analysis. Includes over 20 
Pascal programs; more than 
10,000 lines of code. Main 
features include: 














¢ Maximum of 32,767 rows per 
file; 
* Maximum of 400 characters 
per row, and 40 columns per 
table; 
Full-screen editing of rows 
and columns, with scrolling, 
windowing, global search/ 
replace, and other editing 
features; 
Sorting, copying, merging, 
and reducing routines; 
Mailing label program; 
Reporting program generates 
reports with control breaks, 
totals and subtotals, and 
selects rows by field value; 
many other reporting 
features; 
Cross-tabulation, correla- 
tions, and multiple regres- 
sion; 
Video-display-handling 
module; 
¢ Disk-file-handling module. 


Many other features. UCSD for- 


mats only. 
$250 






¢ Global search and replace; 
¢ Block move, block copy, and 
block delete. 


$50 
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SCINTILLA 


A log logit curve fitting program 
for radio-immunologic data; must 
be used with PDMS (described 
above). 

¢ Multiple protocol files; 

* Quality control files; 

¢ Four-parameter non-linear 


curve fit. 
$250 


UCSD formats only. 







































MINT 


A terminal emulation program for 
communication between com- 
puters of any size. 
e User-configurable uploading 
and downloading of files; 
¢ X-ON/X-OFF and 
EOB/ACK protocols; 
¢ Interrupt-driven serial input 
(for Prometheus Versacard in 
Apple II); 
¢ Printer-logging. 


$50 
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(] 8” UCSD SSSD _| DBX $ 50 
|} 5144” Apple Pascal _] PDMS $250 
(} 544” UCSD IBM PC 320k O os : a Rodeos 
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15%” IBM MS-DOS ©) MINT $ 50 LC] MasterCard L] VISA Ed Check LJ C.O.D. 
J 5%" CP/M Osborne cm pe a rep (Please include card # 

O PLANE $100 ned Srepeatn Axle) SUBVERSIVE A division of Pascal & Associates, 


al 8’ War ; 
Apple and Apple Pascal are trademarks of the APPLE Computer Corp. IBM and IBM PC are trademarks of International Business SOl i WA R E 
Machines. UCSD Pascal is a trademark of the Regents of the University of California. Osborne is a trademark of Osborne Com- 


puter. EPSON is a trademark of EPSON America, Inc. C. Itoh is a trademark of C. Itoh Electronics. 
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RSA (Listing Continued, text begins on page 30) 
Listing Seven 


# send Keys to LUNOUT file 
call open(LUNOUT, * keys dat’,0) # open Key file on current drive 
write (LUNOUT,400) len # N 

400 format (20(13,1x%)) 
write (LUNOUT,400) (n(idx), idx=1,1len) 
write (LUNOUT,400) len # D 
write (LUNOUT.400) (d(idx), idx=1, len) 
write (LUNOUT,400) lenp # PF 
write (LUNOUT,400) (plidx), idx=1,lenp) 
write (LUNOUT,400) lenq # @ 
write (LUNOUT,400) (q(idx), idx=1,lenq) 
endfile LUNOUT 


end 


RAHUL RPPEERRERERERE EERE EEE EEE REE ERE HEE BEE BEERS HHH HERE RRR F 





# GENPRM -- Generate a prime number 
subroutine genprm(prime, lenp, work, modulo) 


byte prime (1),work (1) ,one, two, three, four, six,pOmods, kad j 
logical prmtst 
integer lenp,modulo 


data one, two, three, four, 5ix/1,2,5,4,6/ 


leni=(2*lenp)/3 # get length of prime number needed to generate FP or @ 
len2=lenp-leni # get length of random number needed to generate F or @ 
call rmrkin(’ Generating FO.*) 
call genrnd(work,leni,modulo) # generate random number FO to use as 

# initial prime factor 
idx2=leni+ti # get index to start of F 


call rmrkin(* Generating E.*) 
call genrnd (work (idx2),len2,modulo) # generate random number kK 
if (¢work¢(leni) & 1) == ©) # FO even? 
work (leni)=work(leni)+1i # make FO odd 
if ((work(lenp) & 1) '= 0) # KF odd? 


work (lenp)=work(lenp)-1 # make K even 

idxscr=lenpt+l # get index to work scratch area 

lenscr=7*leni+= # get length of work scratch area 

call remark (* Making FO Prime.*) | 

while (! ormtst (work,leni,work (idxscr),lenscr,modulo)) # FO not prime 
re 


5 


call mpadd (work, leni,two,1,work(idxscr),leni+i,modulo) 


# FO = PO + 2 r © 
if (work(idxscer) = 1) # FO overflow, i.e. FO = 1O*#*#(LEN1+1) + 1 
work (idxserti)=1 # keep PO between 1O**LENI & LO##*(LENI+1), 


# i.e. PO --> 1O#*#LENI + 1 
do idxo=1,leni # move new FO to old PO 


yg 
\ 


idun=idxscertidxo # get index to new FO 
work (idxo)=work(idxn) # new PO —-—» old FO 
} 

cal lirirkin’ 274 

call remark (¢* aoe 





do idxo=1,leni # copy FO to temporary FO in preparation for division 


Pi 
u& 


idxn=idxsertidxo # get index to temporary FO 
work (idxn)=work(idxo) # FO --> temporary FO 
+ ; 


work (idxscr)=0 # make sure numerator has a leading =ero 
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idxquo=idxsertlenit+t2 # get index to quotient 
lenquo=leni # get length of quotient 
idxrem=idxquotlenquo # get index to remainder 
call mpdiv(work (idxscr),leni+i,three,1,werk(idxquo),lenquo,work (idxrem), 
1,modulo) # get FO mod 3 
POmods=work (idxrem) # save FO mod 3 
do zdxO=1,len2 # copy FE to temporary EK in preparation for division 
LdxO=idxetidxO-1 # get index to KE 
idxn=idxscertidxO # get index to temporary EK 
work didxn)=work(idxo) # K --> temporary EK 
work tidxscr)=O # make sure numerator has a leading zero 
idxquo=idxsertlen2+2 # get index to quotient 
lenquo=len2 # get length of quotient 


rs idxrem=idxquotlenquo # get index to remainder 
call mpdiv (work (idxscr),len2+1, three, 1,work (idx quo), lenquo,work (idxrem), 
~ 1,modulod # get KE mod 3 
, if (pOmod3s != worktidxrem)) # FO mod = '= K mod 3? 
{ 
# Note: N mod 3 = © or 2 or 1 (in that sequence) 
if (pOmods == 0) # generate K adjustment for FO mod 2 == 0 
kadj=twotwork (idxrem) # adjustment for K mod = == 2? or i 
else if (pOmod3 == 3) # generate K adjustment for PO mod = == 2? 
kad j=twor (work (idxrem)+one) # adjustment for FE mod = == 1 or oO 
else # generate EF adjustment for FO mod = == i 
kadj=four-work(idxrem) # adjustment for K mod 3 == ©O or 2 
call mpadd (work (idx2),len2,kadj,1l,work (idxscr),len2+1,modulo) 
# force EK mod 3 == FO mod & 
if (work (idxscr) = 1) # K overflow, i.e. K = 10#*(LEN@+1) + 0 or 2? 


(Continued on page 54) 
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Super assemblers 


pius the world’s 


largest selection of 
cross assemblers! - 


Z-80 Macroassembler $49.50 


Power for larger programs! This 2500AD macro- 

assembler includes: 

- Zilog Z-80 Macroassembler (with the same powerful 
features as all our assemblers) 

- powerful linker that will link up to 400 files 

¢ Intel 8080 to Zilog Z-80 Source Code Converter (to convert 
all your Intel source to Zilog Syntax in one simple step) 

¢ COMto Hex Converter (to convert your object files to Hex 
for PROM creation, etc.) 

¢ 52 page User Manual 


8086/88 Assembler 
with Translator $99.50 


Available for MSDOS, PCDOS, or CPM/86! This fully 
relocatable macroassembler will assemble and link code for 
MSDOS (PCDOS) AND CPM/86 on either a CPM/86 or 
MSDOS machine. This package also includes: 
« An 8080 to 8086 source code translator 
(no limit on program size to translate) 
- A Z-80 to 8086 translator 
° 64 page user manual 
¢ 4 linkers included: 
—MSDOS produces .EXE file 
—CPM/86 produces .CMD file 
—Pure object code generation 
—Object code:and address information only 


Linker features: 
¢ Links up to 128 files 
¢ Submit mode invocation 
¢ Code, Data Stack and extra segments 
¢ Handles complex overlays 
¢ Written in assembly language for fast assemblies. 


Z-8000 Cross Development 
Package $179.50 
Instant Z-8000 Software! This package allows devel- 


opment and conversion of software for the Z8001, 
8002, 8003 and 8004 based machines on a Z-80, Z-8000 





or 8086 machine. This powerful package includes: 

- a Z-80 to Z-8000 Assembly Language Source Code 
Translator 

¢ an 8080 to Z-8000 Source Code Translator 

¢ Z-8000 Macro Cross Assembler 

¢ Linker and Loader 

¢ COM to Hex File Converter 

¢ a 100 page User Manual 

¢ a Zilog Z-8000 Technical Reference Manual 

The Translators provide Z-8000 source code from Intel 

8080 or Zilog Z-80 source code. This source code 

expansion is from 2% to 11%. The Translator outputs a 

worksheet and a Z-8000 source file. The worksheets 

show each line of 8080 Z-80 code, with notes to help the 

programmer to optimize performance, and further 

lower code expansion. It even comments lines it adds! 

The Z-8000 source code used by these packages are 

the unique 2500AD syntax using Zilog mnemonics, 

designed to make the transition from Z-80 code writing 

to Z-8000 easy. 


All 2500 AD Assemblers and Cross Assemblers 
support the following features: 


Relocatable Code—the packages include a 
versatile Linker that will link up to 128 files together, or 
just be used for external reference resolution. The 
Linker allows Submit Mode or Command Invocation. 
Large File Handling Capacity—the Assembler will 
process files as large as the disk storage device. All buf- 
fers including the symbol table buffer overflow to disk. 
Powerful Macro Section—handles string 
comparisons during parameter substitutions. Recursion 
and nesting limited only by the amount of disk storage 
available. 

Conditional Assembly— allows up to 248 levels 

of nesting. 

Assembly Time Calculator—will perform calcula- 
tions with up to 16 pending operands, using 16 or 32 Bit 
arithmetic (32 Bit only for 16 Bit products). The algebraic 
hierarchy may be changed through the use of parentheses. 


\ 


include files supported— 

Listing Control— allows listing of sections on the 
program with convenient assembly error detection 
overrides, along with assembly run time commands 
that may be used to dynamically change the listing 
mode during assembly. 

Hex File Converter, included—for those who 
have special requirements, and need to generate 
object code in this format. 


Plain English Error Messages— 


system requirements for all programs: 
Z-80 CP/M 2.2 System with 64K RAM and at least a 96 


column printer is recommended. Or 8086/88 96K CP/M 
or MSDOS (PCDOS). 


Cross Assembler Special Features 

Z-8— 256 User defined registers names, directive to 
engage UPC, Z-80 style syntax. 

8748—fully Intel source code compatible. 

8051 — 256 User defined register names, bit 
addressable naming allowed. 

6800 Family— absolute or relocatable modes, 
all addressing modes supported, Motorola syntax 
compatible. 

6502—Standard syntax or Z-80 type syntax 
supported, all addressing modes supported. 


8086 and Z-8000 XASM includes Source Code Translators 











ZILOG IBM P.C. IBM P.C. OLIVETTI 
Z-80 . SYSTEM 8000 8086/88 8086/88 M-20 
CP/M UNIX MSDOS CP/M 86 PCOS 
ee a ee SIMO 7  POOS 
8086/88 ASM $ 99.50 $99.50 
8086/88 XASM $179.50 $750.00 $179.50 
Z-8000“”ASM 750.00 299.00 
Z-8000 XASM 179.50 179.50 179.50 
Z-80 ASM 49.50 
Z-80 XASM 500.00 $99.50 $99.50 $99.50 
Z-8 XASM 99.50 500.00 $99.50 $99.50 $99.50 
6502 XASM 99.50 500.00 $99.50 $99.50 $99.50 
6800,2,8 XASM 99.50 500.00 $99.50 $99.50 $99.50 
6801,03 XASM 99.50 900.00 $99.50 $99.50 $99.50 
6805 XASM 99.50 500.00 $99.50 $99.50 $99.50 
6809 XASM 99.50 500.00 $99.50 $99.50 $99.50 
8748 XASM 99.50 500.00 $99.50 $99.50 $99.50 
8051 XASM 99.50 900.00 $99.50 $99.50 $99.50 
Subtotal $_ S SNES ne Pe 
Name TO ORDER. Simply circle the product or 
Company products you want in the price columns above, 
Add enter the subtotal at the bottom of that column 
ress and add up your total order. Don’t forget 
ay Stee a ip shipping/handling. Total $ 
at a eee ar ene Se Seer § Check one: ippi i 
Make and model of L] 8' Single Density “($6 50 per unit) 
SORNpUter [] 5%” Osborne G0 per any 


system 
|] C.O0.D. (2500AD pays C.O.D. charges) 
|] VISA or MasterCard #, Exp. Date (mo./yr.) 








L] IBMPC. 
[] Cartridge Tape 
(| Apple (Softcard) 


Total Order $ 


CP Mis a registered trademark of Digital Research, Inc. 


Signature 





Circle no. 1 on reader service card. 





RSA _ (Listing Continued, text begins on page 30) 
Listing Seven 


work (idsxsertil)=1 # keep EF between LO#*#LENS & 1LO#*#(LEN2S+1), 
3 # i.e. Ko --> 1O#*LEN2 + 0 or 2 : 
do idxO=1,lenz # move new FE to old F 

idxo=ide2@+tidxo-1 # get index to old EF 

idxn=idxsertidxO # get index to new § 

work (idxo)=work(idxn) # new EK --> old FE 
call momult (work, leni,work (idx2),len2,prime,lenp,modulo) # generate K * FO 
lenscr=lenptl # get length of work scratch area 
call mpadd (prime, lenp,one,1,work (idxscr),lenser, modula) 

# generate PRIME = Kk * PO + 1 (1O##LENF < FRIME < 10**(LENF+1)) 
do idxo=i,lenp # move new PRIME to ald PRIME 


£ ; 
L 


idxn=idxsertidxo # get index to new PRIME 
prime (idxo)=work(idxn) # new PRIME --> old FRIME 


“he 
J 


# Note: Keeping E mod 3 == FO mad 3 just involves adding 6 to F. 


# and (kh + 6) * FO + 1 == (EK # PO + 1) + (& * FO) 
# == FRIME + (6 * FO), 
+. i.e. we are done with F f!! 


idxscr=idx2 # get index to scratch work area 
lenscr=Leni+ti # get length of scratch area 
call mpmult (work, leni,six,1,work (idxscr),lenscr,modulo) # generate 6 * FO 
if (work(idxscer) ‘= ©) # extra digit created? 
leni=lenit+ti # get new length of 6 * FO 
else # no extra digit created 
jdxscr=idxscr+1l # advance index to (6 * FO) to skip over zero digit 
do idxo=1l,lenl # move (6 * FO) to old FO 


f 
15 


idyn=idusertidxo-1l # get index to (6 * FO) 
work (idxo)=work(idxn) # (6 * FO) --+ old FO 
idxscr=lLeni+i # get index to scratch work area 
lenscr=lenpt+! # get length of work scratch area for adding (6 * FC) 
lenw=7*lenp+3 # get length of work scratch area for prime testing 
call rmrkin(’.*) 
call remark ( Generating the prime number.”*) 
while (! ormtst (prime, lenp,work (idxscr),lenw,modulo)) # PRIME not prime 
call mpadd (prime, lenp,work,leni,work (idxscr),lenscr,modulo) 
# PRIME = PRIME + (6 * FO) 
if tworktidxser) = 1) # FRIME overflow, 
# i.e. FRIME = 10%*(LENF+1) + 7 
work tidxscrti)=1 # keep PRIME between LO*#*#LENP & 1O*#*(LENP+1), 
# i.e. FRIME --> 1O0*#*#LENP + ? 
do idvo=i.,lenp # move new PRIME to old PRIME 
idxn=idxscrtidxo # get index to old PRIME 
orime(idxo)=work (idxn) # new FRIME --> old PRIME 
callorearkin( 660 
call remark ¢* ie 


As a precaution at this point, may want to check that (PRIME + 1) does 
not consist entirely of rather small prime factors. If so, should 
return to previous WHILE loop to get next FRIME and try again. 


There are 168 primes (PRIMEkK) less than 1000. It is sufficient to 
show that if factoring PRIME by PRIMEk (k = 1,168) leaves a number 


Fie 4 stan POS Des Sel eas Se cee a nd So Re A ed pha es ae = cle A ea ee ee aia 
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od which is greater than 10*#5 then PRIME okay. 
as 
return 


end 
HHHHEHHHERREHHEEEHHHHPPHEREEHHREPHEHHHPHPHEEEHEHEHEHEERHEHRHHRHEEHHEERBHRRESHEEBEEH 


# GENRND -—- Generate a random number of specified length 
subroutine genrnd (rnd, lenr, modulo) 


byte rndt1) 
integer lenr,modulo 


data rndnxt/.5/ # make RAN(*) generate the next random number 
# ‘any positive number will do) 


fmodul=float(modulo) # float byte modulus 
idxre=1 # get index to random number 
repeat # force ist digit to be non-zero 
irnd=mod (int (fmodul ran (rndnxt)).modulo) # get a random digit 
until <irnd '= oO) 
rnd(idxrd=irnd # load ist digit of RND 
idxcr=idxr+l # point to next digit of RND 
While (idxr <= lenr) # generate the rest of the random digits 


Ps 
uX 


irnd=mod (int (fmodul *ranirndnxt)).modulo) # get a random digit 
rnd(idsxr)=irnd # load random digit 


(Continued on next page) 





Now the advantages 

of Forth are available 

for your IBM PC® Easy to 

use for both experienced 

f programmers and_ beginners 

f too, Forth offers the advantages 
of speed, flexibility, and ease of use. 


The MU Forth Package Provides: 


Source and object code 

user documentation 

Commented source listings 

in IBM and macro assembler format 
Turtle graphics, sound, and 

music support 

Keyboard and video support 

sample programs 


SMALLY FOR IBM-PC 


SMmall-C Compiler Version 
2.1 for PC-DOS/MS-DOS 
Source Code included 
for Compiler & Library 
New 8086 optimizations 
RICH I/O & Standard Library 











CBUG SOURCE LEVEL DEBUGGER FOR SMALL C 


Break, Trace, and Change 
variables all on the 





Requires: 





source level 
Source code included 


Datalight 


11557 8th Ave. 8 = 
Seattle, Washington 98125 





ASM or MASM is required with compiler. 

Include disk size (160k/3 20k), and DOS version with order 

VISA & MasterCard accepted. Include card no. & expiration date. 
Washington state residents include 7.9% sales tax. 

IBM-PC & PC-DOS are trademarks of International Business Machines 
MS-DOS is a trademark of Microsoft Corporation. 


Circle no. 16 on reader service card. 
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Your IBM PC, 16K memory, 1 disk drive, PC 
DOS 1.X, color or monochrome, 40 or 80 
column display. 


The Price 


Available from: Art Arizpe 
MU Software 
115 Cannongate Ill, Nashua, NH 03063 


603-880-9416 


SEND CHECK OR MONEY ORDER 


Circle no. 38 on reader service card. 
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RSA (Listing Continued, text begins on page 30) 
Listing Seven 


idxr=idxrt+l # advance pointer to next digit 
" 
. 


return 


end 


End Listing Seven 
Listing Eight 


Copyright © 1983, Charles E. Burton, Denver, Colorado. 
All rights reserved. Permission granted to use this software for personal, noncommercial purposes only. 


FROGRAM NAME: EDCRYFT.RAT 

PURPOSE: This routine uses the RSA (Rivest-Shamir-Adleman) keys generated 
by GENFKEYS.RAT to Encrypt/Decrypt a message. 
It uses the method described by D.E. Knuth, The Art of Computer 
Frogramming, V. 2 (Semi-Numerical Algorithms), 2nd Ed., (Addison- 
Wesley, Reading. MA), pp. 286-389. 


LANGUAGE: RATFOR 
AUTHOR: CER 
USAGE ***##*###e% (main program) 


ARRAYS USED: N(KEYLENGTH), D(KEYLENGTH) ,WORKE (WORKLENGTH) 
EXTERNALS: RFEXPF 
UF DATE HISTORY: INITIAL RELEASE -~- 02/14/7823 CER 


HHHHHtH RAH HH HH HHH + 


define (KEYLENGTH, 90) # length of key for characters 
define (WORELENGTH, 450) # length of WORK buffer for characters 
#. (5. %* KEYLENGTH) 
define (BYTEMODULUS, 128) # byte modulus for characters (1 character/byte) 


definet(LUNIN, 6) # Input Logical Unit 
define (LUNOUT.7) # Output Logical Unit 
define (BLOCKS,8) # Number of 128 byte blocks to use for disk I/O 


define (EQFCHAR, 26) # text file EOF character ("2) 


program rsa 


character c,c0,getc,getch,oper,type,extn(3), linein(KEYLENGTH) , 
lineot (KEYLENGTH) 

byte n(KEYLENGTH) .d (KEYLENGTH) ,work (WORELENGTH), three, msb 

integer openr,equal,.getl 

double precision filnam # allow entry of up to 8 characters 


equivalence (filnam,work(1)) 


data extn/BIGT, BIGX,BIGT/ # default file extension 


data modulo/BYTEMODULUS/ # get byte modulus for arithmetic 
data three/3/ 


call rmrkin(*.7) # show options 


call rmrkin(*Select operation:.*) 
call rmrkin( <E>neryption.*) 
call rmrkin(? “Decryption. *) 


call rmekint? 27) 
repeat # get operation to perform 
Pa 


aE 
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call remark ("Operation -- .*) 
oper=getc(c) & 95 # get selection and convert to upper case 
Cail wmrkink’ . 3 


+ 


until ((oper == BIGE) | (oper == BIGD)) # valid entry 
call open(LUNIN, “keys dat*.,O) # open key file on current drive 
read (LUNIN, 100) lenn # get the lenath of N 
190 format (is) 
read(LUNIN, 200) (nfidx), idx=1.,lenn) # get N 
200 format (20(i3,1x)) 
if (oper == BIGD) # decryption selected? 


. 


read (LUNIN, 100) lend # get length of D 
read (LUNIN, 200) (d(idx). idx=1,lend) # get D (cube root of text) 
+ 
else # encryption selected 
{ 


lend=1 # only one digit 
d(lend)=three # set-up to cube text 


endfile LUNIN # close key file 
repeat # get name of text file (.TXT extension assumed ) 
Cali crerkine3 35 
if (oper == BIGD) # decryption selected? 
call remark (*Encrypted.*) 
else # encryption selected 
call remark (?Clear.*) 


Call remark(* Text Source File Name (XXXXXXXXK) -- 1") 
read (CONSOLE, 300) filnam # WORK (1 to 8) 
BOO format (aQ) 
do idx=1,8 # convert lower case to upper case 
if (type(work(idx)) == LETTER) # is character a letter? 


work (idx) =work(idx) & 95 # to upper case 
work (9)=E0S # terminate file name 
until fopenr (LUNIN, READONLY, BLOCKS, work, extn) == YES) # successful open 
call scopy(work,1l,work,10) # save source file name 
repeat # get name of text file (.TXT extension assumed ) 
€ 
Call rartkint:29 
if (oper == BIGD) # decryption selected? 
call remark(*Clear.*) 
else # encryption selected 
call remark (* Encrypted. *) 
call remark(* Text Destination File Name CXXXXXXXX) —-— 27) 
read (CONSOLE, 300) filnam # WORE(1 to @) 


do idx=1,8 # convert lower case to upper case 
if (type(work(idx)) == LETTER) # is character a letter? 
work (idx)=work (idx) & 95 # to upper case 
work (9) =E0S # terminate file name 
if (equal (work,work(10)) == YES) # Source & Destination names same? 


calle rarkintt.) 
call remark (*Source and Destination names cannot be the Dae | 


call rmrkin(*same !!!,*) 
until (Copenr (LUNOUT,WRITEONLY, BLOCKS,work,extn) == YES) # successful open 
for (cO=O5 cO != EOFs; ) # convert text 
{ 
if (oper == BIGE) # encryption? 
{ 


lineintil)=0 # make sure LINEIN mod N = LINEIN 
len=2 # point to next character 
} 

else # decryption 


len=1 # initialize line length counter (Continued on next page) 


———  -:-: Orr 
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RSA (Listing Continued, text begins on page 30) 
Listing Eight 


repeat # get a line of text (encrypted or decrypted) 


Le 
\ 


lineint(len)=getchicO,LUNIN) & 127 # get a character/strip MSBit 
# (no effect on Clear Text but MSBit set by encryption) 
len=lentl # point to next character position 
if ((oper == BIGE) & (cO == EQOF)) # encryption & EOF? 
lineintlen-1i)=EOFCHAR # overwrite EOF with EOFCHAR 
while (len <= lenn) # clear text line 
repeat 
num=int (32,.08rean(.5)) # get a number (0 - 31) 
until (num !'= EOFCHAR) # not text EOF character 
linein(len)=num # pad line with a random character 
# (could have previously seeded 
# random number generator !!!) 
len=lLenti # advance line length counter 


2 
=) 


Lo 


LP 
3 


until ((cO == EOF) | (len = lenn)) # ready to encrypt/decrypt 
if ((oper == BIGD) & (cO == EOF)) # decryption & EOF? 
break # encryption does not leave characters with EOF, so done 
lenin=len~-1 # point to last actual character 
lenout=lLenn # qet length of converted line 
lenw=4#lenn+2 # get length of work area 
call rpexp (linein, lenin,d,lend,lineot,lenout,n,lenn,work,lenw, modulo) 
# encrypt/decrypt line 


if (oper == BIGD) # decryption selected? 
lenO=2 # skip over leading zero from encryption 
msb=0 # MSBit for decrypted text 1s zero 
if ¢cO == FOF) # end of file found on input”? 


a 
& 


while ((lineot(lenout) ‘= EQFCHAR) & (lenout == len®)) 
# strip pad characters 
lenout=lenout-1 # backup end of line pointer 
Lenout=lLenout-1l # backup over EOQFCHAR 
else # encryption 
{ 
lenO=1 # use all characters 
msb=128 # MSBit for encrypted text is one for Control Chars. 
if (lenout >= lend) # at least one character to output”? 
do idx=lend,lenout # save encrypted/decrypted text 
{ 
c=lineottidx) # get character to save 
if ¢c < BLANK) # Control Character (only used during 
# encryption)? 
c=c |} msb # move Control Characters above printable 
# ASCII range. especially EOQFCHAR !!! 
call putchi(c,_LUNOUT) 


J 
> 


= 
4 


call closer(LUNIN) # close files 
call closer (LUNOUT) 


sl End Listing Eight 
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Listing Nine 


Modeled after W.J. Cody & W. Waite, 
Elementary Functions" 


+++ H+ + 


real function ranix 


real x,y,const,ze6ro 


Random Number Generator for use with AFULIE 


"Software Manual for the 


data y/100001.0/,const/2796203,.0/,z2er0/0.0/ 


: 

1% 

of: -CR oe ere) 
y=—-x#const 

y=amod (125.O0#*"y, const) 

ran=y/const 

if (y == zero) 


a a 


y= 1900001,0 


% 
2 


return 


end 


THE FULL-FEATURED KEYBOARD EXPANDER 
for all 8080-8085-Z8O computers using CP/M 2.2 


MagiKey™ will redefine your keys as character strings ... and transform single 
keystrokes into commands for programs, words for word processors, data for data 
bases, and messages for modems. Without hardware or system modifications. 


MagiKey™ has more advanced features than any other CP/M keyboard ex. 
pander. For example: 


* Redefine a key to send the string: 
“Run WordStar and edit form letter number 17” 
Hit the key. YOU will see the string, but “WS FRMLIR17” will be sent to CP/M. 
MagiKey™’s CONSOLE REDIRECTION can display messages which are invisible 
to programs and CP/M ... very useful for recalling key assignments, custom 
operator prompts, and making CP/M friendlier. 


*x Redefine a key to run several programs in sequence. Each program can wait 
for keyboard input or receive pre-defined commands and data. MagiKey™’s 
built-in BATCH PROCESSING doesn't use CP/M’s SUBMIT, and handles programs 
that CP/M’s XSUB can't. 


* Redefine a key to display the prompt: 
“Execute SuperCaic using the spreadsheet file’ 
Press the key to display the prompt. Type the file name, hit RETURN, and you're 
into SuperCalc. When done, a single keystroke saves your updated spreadsheet. 
You don't have to remember or retype its name. MagiKey™’s RECURSIVE key 
redefinition mode automatically does it for you. 


WE INVITE COMPARISON 
$100 
8” SSSD, most 5%” formats | P R 0 cae Sys loin 


add 6% tax in CA 
16609 Sagewood Lane 


check, VISA, M/C 
CP/M (tm) Digital Research Poway, California 92064 
SuperCalc (tm) Sorcim (619) 693-1022 


WordStar (tm) Micropro 


Circle no. 44 on reader service card. 


End Listings 


Menu Driven Programs running under SPELLBINDER 


Deartohn @ will free your operators from entry 
errors. Completely menu driven Mailing List Management Programs 
with thoughtfully formatted screens to ease the entry of addresses and 
names. Integrity of the data file created is automatically verified. No 
more printing ‘bad’ mailing labels with misplaced data; AND each add- 
ress record can be individually classified to allow inclusion (or exclu- 


sion) when printing labels or form letters. 
(10 Programs) 9§9.S5Q 


SBillenu SBrelp make your version of 


Spellbinder menu driven. No more fumbling through manuals for 
obscure or little-used commands. The complete instruction set can 
be displayed at any time without disturbing the text on the screen. 
These two programs put Spellbinder into the world class of word 

processors, allowing the user to easily use its truly outstanding fea- 


tures. (With two help files) 855.00 


PutoSave automatically saves the text on the 
screen to a previously named file. Prevents the inadvertent but all so 

common save to a wrong name. Works with source code and program 
code as well as with text files. All instructions on disk. 


(3 Programs) $37.59 


Send Check, Money Order, Visa, Master Charge: 
COMPUTER RESOURCES OF WAIMEA 
P.O. Box 1206 
Kamuela, Hawaii 96743 
Phone: (808) 885-7905 





Circle no. 11 on reader service card. 
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BASICFMT for TRS-80 





K, programmer! It’s time to play 


(A BASIC Formatter} 
‘Find the Variable’! The object 


O of the game is to determine what 


the variables are in line 10 of my pro- 
gram. The winner gets a Rubik’s Cube! 

10 IFBASICANDCOMPRESSEDTHEN 
SANITY=CRAZYANDYESELSEIFNOT 
BASICANDCOMPRESSEDTHENSANIT 
Y=CRAZYANDNO 


by Davy Crockett 


Davy Crockett, 5807 Cherrywood Ln., 
Apt. 104, Greenbelt, MD 20770 


The Game 


Many programmers like to play 
games with their programs. I do not mean 
after you type RUN. These games are 
played when RUN would only elicit a 
READY prompt from ‘the BASIC inter- 
preter. They choose variable names like 
DO. That way, when you use it in an IF 
statement it can look like this: 


100 IF DOOR KNOB THEN 300 


Of course, judicious use of spacing could 
clarify the issue, but that is contrary to 
the rules of the game. 

Now I know what you are thinking: 
“This guy is leading up to yet another 
program to format a BASIC ASCII file.” 
You are correct on one count: this is a 


Version 1.0 
29 October 1982 
Davy * Crockett 


20770 


10 : | . 
KEKKKKKKKKKKKKKKKKRKRKRKK 
kKkkK* DEMO/BAS kKkekK* 
RRR KR RR KKK KKK KR KK 

1510 | 
Davy * Crockett, B.S., Esquire 
5807 Cherrywood Lane, Apt. 104 

poeeedrelt, ee 
3010 |. 


Program to demonstrate BASICFMT 


formatting program. However, it is not 
just another program. BASICFMT reads a 
BASIC program in compressed format 
from disk and prints a readable listing. In 
order to use BASICFMT, all you need is a 
BASIC program stored on disk without 
using the ‘,A”’ option. No longer is it 
necessary to load the program and then 
save it again with the ASCII option. 


The Game Pieces 


The first byte of these BASIC files 
is always OFFH. This byte tells BASIC 
that it is all right to continue loading this 
file as a BASIC program. If this byte is 
not OFFH then you get the old “Direct 
Statement in File” error from BASIC. 
Following this byte, each line is stored in 





4510 CLS:CLEAR1000:DEFINTA-Z :DIMNM$ (35) ,AD$(35) ,TL$(2): GOSUB13510: diccas 


RORGOTO12010 


6010 DEFFNLNS=LEFTS (NM$ (I) , INSTR(1,NMS(I),", 


7510 GOTO10510:REM - remark statement 


9010 CLS: PRINTTL$ (1); 


: PRINTTLS (2) : RETURN 


") —l]) 


10510 GOSUB9010: I=35:PRINT"Please enter your name ee - firet)":INPUT 
NMS (I) ,NM$(I-1):NMS(I)=NM$(I)+", "+NMS(I-1):LNS=FNLNS: PRINT: PRINT" Hell 
er "ENS: FORK=0T0200:NEXT: GOTO10510 
| 12010 PRINT" ERL ="; ERL:* ERR =";ERR:ONERRORGOTOO 

13510 FORK=1T0O?2: FORM=1T021: READY: TLS$ (K)=TL$ (K)+CHR$ (Y) :NEXT: NEXT: RETUR 

N 

15010 DATA191,131,171,,148,32,191,179,179,131, 32,191, 140,176,140 294,32 

,191,131,.31, 191, 10, 143, 140, 142, 129, 32, 143, 140, 140, 140, 32, 143, 32, 32, 32 
,143,32, t45. 140, 140, 143,10 





Figure 11. 
BASIC’S LLIST command 





60 Dr. Dobb’s Journal, April 1984 





a specific format. 

The first two bytes of each line con- 
tain an address which points to the line 
number of the following line. The second 
pair of bytes is the line number in binary 
format. After this is the actual statement 
with all of the reserved words compressed 
into a single byte “‘token.’’ A_ binary 
zero (OOH) is the end-of-line marker. For 
example, the preceding line 100 would, in 
compressed format on disk, appear as in 
Figure 1 (page 60). The end of the program 
is indicated by a next-line pointer con- 
sisting of two binary zeros. 


Playing The Game 


The BASIC tokens are all hex codes 
which cannot be generated by simply 
pressing keys on the keyboard. This 
makes them easy to identify in a section 
of compressed BASIC code. The char- 
acter strings associated with each token 
are stored in the ROM at location 1650H 


REKEKKKKKKRKKKRKKKKKKKEKK 


DEMO/BAS 
KKK KKK KEKE KE KER KEKE RK 


Davy * Crockett, 8B.S., 


for both the Model I and the Model III. 
Once a token is found, it is a simple 
matter to extract the character string 
associated with that token from the table 
stored in the ROM and separate it by 
blanks before printing. 

The first thing I noticed is that 
BASIC does not always compress a pro- 
gram the way I expected it to, particu- 
larly the ‘“‘remark’’ commands. The char- 
acters REM get translated to a token 
(93H) as you would expect. However, 
when I used an apostrophe to indicate a 
remark, three bytes were inserted instead 
of a single byte token. The first byte was 
a colon, the second byte was the remark 
token, and the third byte was the hex value 
OFBH. The OFBH apparently tells BASIC 
to back up to the preceding colon and 
replace it with an apostrophe when listing 
the program. 


The ELSE command contained in an 
IF statement is another reserved word 
that is not treated as you would expect. 


KEKKK 


Esquire 


5807 Cherrywood Lane, Apt. 104 


10? 
KEK 
1510 | 
4510 CLS : CLEAR 1000 


: GOSUB 13510 : 


6010 DEF FN LNS = LEFTS 

7510 GOTO 10510 : 

9010 CLS =: PRINT TLS(1): : 
10510 GOSUB 9010 : —§ = 435 - 


first)" ; 


Greenbelt, Maryland 


20770 


Program to demonstrate BASICFMT 


; DEFINI A- 2: 
(NMS(I), 


PRINT TLS(2) : 


NMS(I) = 


The ELSE command is always converted 
to a two-byte sequence with a colon pre- 
ceding the ELSE token. 


Winning At The Game 


BASICFMT can help beat these 
gamesters at their own game by separat- 
ing the variables and the command words 
by blanks. The program opens by asking 
for the filespec of the BASIC file to be 
formatted. It will then open the file and 
check to make sure that it is a BASIC 
program in compressed format. If the file 
is not in the expected format, an error 
message is printed and you are returned 
to the DOS. 

When the file checks out, you will be 
asked for printer specifications. These in- 
clude: maximum line length, number of 
lines to print on a page, and number of 
lines to skip between pages. Printing 
begins immediately upon entry of the 
last printer specification. If the printer is 
not ready, the program will print a mes- 


Version 1.0 
29 October 1982 
Davy * Crockett 


DIM NMS(35), ADS(35), TLS(2) 
ON ERROR GOTO 12010 
INSTR (1, NMS(1), 
REM - remark statement 


no) _ 


1) 


RETURN 
PRINT “Please enter your name (last, 
INPUT NMS(I), NMS(I -—- 1) : 


NMS(I) +", “ + 


NMS(I - 1) : UNS = FN LLNS : PRINT : PRINT “Hello, “+: LNS = FOR 
K = 0.TO 200 : NEXT : GOTO 10510 
12010 PRINT "BERL =": ERL : “ ERR ="; ERR : ON ERROR GOTO 0 
13510 FOR K = 1 TO 2 : FOR M=1 TO 21 : READ Y : TLS(K) = TLS(K) + 
- CHRS (Y) : NEXT NEXT : RETURN 
15010 DATA 191, 131, 171, 148, 32, 191, 179, 179, 131, 32, 191. 140, 
: 176, 140, 191, 32, 191, 13], 131, 191, 10, 143, 140, 142, 1239, 
Bsa, 1930, 140, 140, 140, 32, 143, 32, 32, 32, 143, 32, 143, 140, 


140, 143,10 


Figure 2. 
BASICFMT output 
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sage for you to ready the printer and then 
wait for you to press ENTER. 

The target program is read by a 
routine (GETBYT) which returns a single 
byte from the disk buffer each time it is 
called. Some programming languages, no- 
tably PL/I, call this technique ‘‘character 
stream’’ input. One line at a time is read 
this way, decompressed, and stored in a 
primary buffer. Extra blanks separating 
the command words, colons, semi colons, 
and commas are inserted in the statement 
at this point. All remark statements and 
things enclosed within quotation marks 
are not changed in any way. 

Phase two consists of moving the 
contents of the primary buffer to a sec- 
ondary buffer. While this is being done, 
the line breaks are inserted in the state- 
ment. Each line is broken at a blank if 
possible. This would not be possible if 
there were a remark or quoted string 
which had no blanks and completely 
filled the last 10 characters on the line. 
In this case, the line is broken at the 
maximum line length specified. Subse- 
quent lines of the same statement are 
indented past the line number to make 
the line number easy to read. 

Finally, each line in the secondary 
buffer is printed. The page length is 


checked before each line to make sure it 
will not exceed the maximum number of 
lines specified as page length. Processing 
continues with the next line until the end 
of the file is reached. You are then re- 
turned to the DOS READY prompt. 


Game Strategy 


This program will run under any 
DOS which uses the standard entry points 
to open an existing file (4424H), read a 
sector (4436H), and close a file (4428H). 
It will also run on either the Model I or 
the Model III. This is due to several fac- 
tors. First, the BASIC token table is 
located at the same address in ROM for 
both models. Second, I used the assem- 
bler instruction LD A,(37E8H) to check 
the printer status instead of IN A,(OFBH), 
which only works on the Model III. 
Third, many of the DOS/ROM routines 
are incorporated in the program so that 
you do not have to worry about them 
when switching from one DOS to another. 
These include keyboard input, screen and 
printer output, ASCII characters to binary 
value, binary value to ASCII decimal char- 
acters, and even a routine to simulate the 
single-byte read from disk available with 
NEWDOS/80. 


Some of you may wish to add a 
routine that prompts for a title line to be 
printed at the top of each page. I did not 
feel that this was necessary because I 
always include an identification section 
for each program at the beginning. You 
could also modify the PAGER routine to 
print a page number when it ejects a page. 
If your printer requires something sepa- 
rating carriage returns or line feed char- 
acters, the LFEED routine will have to be 
modified to transmit the required codes. 


Before I forget, this statement may 
be easier to read: 


10 IF BASIC AND COMPRESSED 
THEN SANITY = CRAZY AND YES 
ELSE IF NOT BASIC AND 
COMPRESSED THEN SANITY = 
CRAZY AND NO 


or in other words: 

10 IF BA AND CO THEN SA=CR AND 
YE ELSE IF NOT BA AND CO 
THEN SA =CR AND NO 


BB 
Reader Ballot 


Vote for your favorite feature/article. 
Circle Reader Service No. 195. 


Tah) @) b i(ot= Ore) ac =1-) ole) ale l=laler= 


Wi Ete l= 
Gis 
fn. 

AG 


SEATTLE OFFICE 


Memo editor: Enter mail Mode: 
Date: 11/30/83 

Special delivery: 
From mailbox: 709 - Jack Spears Return receipts 
To mailbox: 101 -— Will Pierce 


Subject: Electronic Mail Manager 


Copies tos 
Attached files: 


Since the installation of the "EMM" system, our 
inter-office correspondance has become effective and 


The system is areal "“bargan" at 
See you next week. 


more productive. 
even 10 times the price! 


LA OFFICE 


Memo editors Enter mail 
Date: 11/30/83 


Mode: 


Special deliverys 
Return receipts 
Copies tor 
Attached files: 


From mailbox: 102 - John Fail 
To mailbox: 101 - Will Pierce 
Subject: Board Meeting tomorrow 


The budget forcast looks good except that I have 
revised the year end projections to include new market 
I have returned the new setup in xyCALC. 


trend figures. 
See you at tomorrows meeting' 


From mailbox: 101 - Wi 
To mailbox: 
Subject: Board Meeting tomorrow 


pou 


STi) e)(= 


( 


Memo editors 
Date: 11/30/83 


= This Electronic 
between our offices easy and fast. The new budget forcast is 
attached in xyCALC format. 


Memo editor: Enter mail 
Dates 11/30/83 


From mailbox: 908 - Lara Wilks 
To mailboxs 
Subject: New Product Release 


LYME STREET OFFICE 


Enter mail Mode: Add 


Special delivery: Yes 
Return receipts Yes 
Copies tos 3 mailboxes 
Attached files: 


102 - John Fail 


The board meeting will be held tomorrow morning at 10 
Mail Manager sure makes communications 


Let me know if you approve. 


SOUTH STREET OFFICE 


Mode: 


Special delivery: 
Return receipts: 
Copies to: 
Attached files: 


101 - Will Pierce 


We have completed the integration testing of the 


fortran version of COMMX on the DEC 10 with links to 
all the micros. 
like a dream! 


The error free file transfers work 
The COMMX protocol does it again! 


Effective Organizational Communications can give YOU the Competitive Edge. Get EMM™ 

Electronic Mail Manager and COMMX™ COMMunications eXchange software on YOUR TEAM today! 
Set up this LAM/NET™ Logical Access Modem Network to meet your Inter-Office our Inter-Office 
requirements on CP/M80, CP/M86 and MSDOS. dBase II'“ Runtime’ demo disk $25 ppd. 


HAWKEYE GRAFIX 
23914 Mobile Street, Canoga Park, CA 91306 


Trademarks: dBase II & RunTime (tm) Ashton Tate, CP/M80 & CP/M86 (tm) Digital 





Circle no. 26 on reader service card. 


Research, MSDOS (tm) Microsoft, EMM & COMMX & LAM/NET (tm) Hawkeye Grafix. 
(213) 348-7909 or 634-0733 


Modem (300 B): 634-0441 
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BASICEMT (Text begins on page 60) 


00010 ;2sse2s222Seese2eeseeessesessesee2erre22e2e2e22222e22222===* 
00020 ; | ” 
00030 ; 4 4b HE Sh ae te He TE EE EE He Version 3.4 + 
00040 ; eeeee BASICFMT **#*##* QQ] November 1983 * 
00050 ; HELE EEERHEHERERE SHER Davy * Crockett we 
00060 ; * 
00070 ; Davy * Crockett, B.S., Esquire * 
oooso ; 5807 Cherrywood Lane, Apt. 104 * 
00090 ; Greenbelt, Maryland 20770 * 
00100 ; * 
00110 ; This program will print a formatted listing * 
00120 ; of a basic program from disk. The program * 
00130 : must not, I repeat "NOT", be stored in ascii + 
00140 ; format. BASICFMIT prompts for basic filespec, * 
00150 ; printer line length, lines per page, and * 
00160 ; spacing between pages for the output. * 
00170 ; * 
00180 ;s=ss2essseeeseezsrsseeseeeeeeeeeeeE2eee22222222222=22==% 
00190 $ 

O0200 ;>>==> System equates section 

Je2i 0s 

00220 TOKTAB EQU 1650H ;basic's token table address 
00230 LPPORT EQU 37E8H sline printer status port 

00240 CILKEY EQU 3840H ;control key address 

00250 OPEN EQU 4424H ;Open existing disk file 

00260 READ EQU 4436H stead a record from disk 

00270 CLOSE EQU 4428H ;close a disk file 

00280 DOSERR EQU 4409H ;display DOS error 

00290 DOS EQU 402DH ;return to operating system 

00300 ; 

00310 ORG 5800H 

00320 ; 

00330 BASFMT LD SP ,BASF MT ;initialize stack 

00340 GETFS LD DE ,FSMSG ;point to prompt 

00350 LD HL,DCB s;point to FCB 

00360 LD 8,32 ;maximum chars 

00370 CALL INPUTP ;get filespec 

00380 5 a ;<BREAK>? 

00390 JP <,D0S syes, exit 

00400 LD DE , OCB ;point to FCB 

00410 LD HL, BUFFER ;point to buffer 

00420 LD B,0OH ;LRECL=256 

00430 CALL OPEN ;open the file 

00440 JP NZ,DOSERR serror, exit 

00450 CALL GETBYT ;get a byte 

00460 iY OFFH ;BASIC file? 

00470 JR 2y GE TEL ;yes, continue 

00480 LD HL,FYLMSG ;no, point to error msg 
00490 CALL PRINT ; and display message 
00500 JR GETFS ;return to get filespec 
00510 ; 

00520 ;>>==> Get printer characteristics from operator 

00530 ; : 

00540 GETLL LO OE,LLMSG spoint to prompt 

00550 CALL GETVAL s;get line length 

00560 JR Z,GETPL ;got something? 

00570 SUB 6 ;adjust line length 

00580 LD €EL) VA ; and store it 

00590 GETPL LD DE ,PLMSG ;point to prompt 

00600 CALL GE TVAL ;get page length 


(Continued on next page) 
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BASICFEFMT (Listing Continued, text begins on page 60) 


00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 


GETPS 


2 
9 


ey 22> 


° 
? 


GETVAL 


DONE 


EXIT 


+ >> sa> 


FSMSG 


LLMSG 


PLMSG 


PSMSG 


FYLMSG 


e 
$ 
> 
? 


BEGIN 


NXTLYN 


s >> =s2> 


’ 


JR 
LD 
LD 
CALL 
JP 
LD 
JP 


Z,GETPS ;got something? 
(PL),A ;store page length 
DE ,PSMSG ;point to prompt 
GETVAL ;get page spacing 
Z,BEGIN ;got something? 
(PS),A syes, store it 
BEGIN ; and start 


Obtain a decimal value from the keyboard 
and convert it to a binary value. 


LD 
LD 
CALL 
CP 
JR 
CALL 
LD 
OR 
RET 


LD 
CALL 
LO 
CALL 
JP 


HL,LINE spoint to buffer 
B,4 ;maximum chars 
INPUTP ;get characters 
1H 3 <BREAK>? 

ESERLT ;yes, exit 

DECBIN sconvert to binary 
A,E ;get binary value 
A ;set/reset Z flag 
A, OCH ;form feed 

LPBYTE ;eject page 

DE ,DCB spoint to FCB 
CLOSE sclose the file 
DOS sexit, stage left 


Prompt and information messages section 


DEFW 
DEFM 
DEFW 
DEF M 
NOP 

DEFB 


‘DEFM 


DEF W 
DEFM 
NOP 
DEFB 
DEFM 
NOP 
DEFB 
DEFM 
NOP 
DEFB 
DEFM 
NOP 


1F1CH shome & cls 
's*#= Basicfmt =*= by Davy * Crockett' 
ODODH ;scouple a <CR>'s 


‘Enter source filespec' 


ODH 

'* File successfully opened' 
ODOQDH 

'Enter line length (<ENTER>=85)' 


ODH 
‘Enter page length (<ENTER>=60) ' 


OOH 
'Enter page spacing (<ENTER>=6)' 


OOH 
'>>s=> File not compressed BASIC' 


HHEEHEHHHEHERHRKEHARAEHHHSKHREE EHH EE 


* Main program control section. * 
2b Hb HE HE HH HH HH HH HH HH 


CALL 
CALL 
CALL 


JR 


Store a statement number in the primary buffer 


LPSTAT scheck printer status 
GETLYN ;buffer a statement 
PUTLYN sprint a statement 
NXTLYN 3;go0 get another 
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01210 GETLYN CALL GETBYT 
01220 LD LA 

01230 CALL GETBYT 
01240 LD H,A 

01250 LD DE ,0 
01260 CALL CPHLDE 
01270 JP Z, DONE 
01280 LD DE ,LINE 
01290 CALL GETBYT 
01300 LD L,A 

01310 CALL GETBYT 
01320 LD H,A 

01330 CALL BINDEC 
01340 LD DE ,LINE+5 
01350 LD A;is3 
01360 LD (DE),A 
01370 XOR A 

01380 LD (QUOTE),A 
01390 LD (REMARK),A 
01400 ; 

01410 ;>>=2=> 

01420 ; 

01430 BUILD CALL GETBYT 
01440 OR A 

01450 RET Z 

01460 cP 80H 

01470 JR NC, TOKEN 
01480 CHK22 cP rime 


;get a byte 


e 
b 


and store in (L) 


;get another byte 


9 


and store in (H) 


s;test value 
;zero address? 


yes, 


quit 


;point to buffer 
;LSB line number 


and store in (L) 


;MSB line number 


and store in (H) 


;convert to decimal 
;end of line # 
;get a blank 


and store after # 


;set the quote 


° 
9 
° 
? 


indicator 
and rem indicator 


Store the rest of the statement in the buffer 


;get a byte 
;end of the line? 


,yY@S8, 


return 


; token? 


yes, 


jump 


;quote? 


(Continued on next page) 









GGM — FORTH™ has HELP* 
for Z80' using CP/M? 








GGM—FORTH, a complete software system for 
real-time measurement and control, runs on any 
Z80 computer under CP/M using an extended 
fig-FORTH vocabulary. 


GGM—FORTH features: 


e Open multiple CP/M files, in any combin- 
ation of direct-access and sequential-access, 
fully compatible with all CP/M utilities 


e Char. in/out uses CP/M console, lister, file, or 
port 










@ On-line HELP* provides instant access to defi- 
nitions in the run-time GGM—FORTH dictionary 


e HELP* file is easily extended to include user 
definitions using HELP* utility 


e HELP®* is available during full-screen editing 









Complete system and manuals $150. 
Manuals only: $20. 
Introductory System: $ 35. 





GGM SYSTEMS, INC. 
135 Summer Ave., 


(617) 662-0550 
Reading, MA 01867 








1280 is a trademark of Zilog, Inc. 
2CP/M is a trademark of Digital Research, Inc. 





Circle no. 22 on reader service card. 
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Including a new dynamic debugger 
Still the choice of professionals 


* Compiler option to generate special 
symbol table for new dynamic 
debugger by David Kirkland. (With the 
debugger, the distribution package 
now requires two disks.) 
















¢ Clink option to suppress 
warm-boot 

* New library file search capabilities 

¢ New, fully-indexed 180 page manual 

* Takes full advantage of CP/M® 2.x, 
including random-record read, seek 


relative to file end, user number 
prefixes, and better error reporting. 


V1.5 $120.00 
V 1.46 ....$115.00 


(needs only 1.4 CP/M) 


Other C compilers and 
C related products 
available .. . Call! 


TERMS: CHECK, 
MONEY ORDER, C.O.D., 
CHARGE CARD 
HOURS: 9 am—5 pm 
Monday —Friday 


(316) 431-0018 


°° CP/M is a trademark of Digital 
Research, Inc. 


IT’S HERE! 


MONEY MATH 


¢ Uses BCD internal 
representation. 

* You choose from two types 
of rounding. 


* Configurable exception 
handling 

¢ Distributed with 12 digits 
precision. Easily configured 
for more or less 


¢ Excess 64 exponents 


SOURCE $5000 


INCLUDED 








— 
- 

a =) 
Co - ea 
aS «7 @ a 









P.O. Box 481, Chanute, Kansas 66720 


include $2.50 for postage and handling 






Circle no. 18 on reader service card. 
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WHY FORTH ? 


Genuinely Interactive 
(BASIC is much less interactive) 


Encourages Modular Programs 
(inefficiency and cluttered syntax 
hamper effective modularization in 
compiled languages) 


Fast Execution 
(not even C is faster) 


Amazingly Compact Code 
Fast Program Development 
_ Easy Peripherals Interfacing 


WS EQ RTH 
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Fully Optimized for IBM-PC 
IBM-XT IBM-JR and ali PCDOS 
compatibles 

Forth-79 and Forth-83 Modes 
Full Support for DOS Files, 
Standard Screens and Random 
Access DOS Screen Files 


Full Use of 8088 Instructions 
(not limited 8080 conversion subset 
of transported versions) 


Separate Segments for Code, 
Stack, Vocabularies, and Defini- 
tion Lists - m''itiple sets 
possible 

Segment Management Support 
Data Anywhere in Full 
Megabyte 

Coprocessor Support 
Multi-task, Multi-user 
Compatible 


Automatic Optimizer 
(no assembler knowledge needed) 


Full Assembler 

(interactive, easy to use & learn) 
Goal Oriented Documentation 
Free Updates and News until 
June 1985 

BYTE Sieve Benchmark jan83 
HS/FORTH 47 sec BASIC 2000 sec 
w/AUTOOPT 9 sec Assembler 5 sec 
other Forths (mostly 64k) 70-140 sec 
PS You don’t have to understand 
this ad to love programming in 

HS/FORTH! 


HS/FORTH with AUTO-OPT & 
MICRO-ASM_ $220. 


HARVARD 
SOFTWORKS 


PO BOX 339 
HARVARD, MA 01451 
(617) 456-3021 


Circle no. 25 on reader service card. 





BASICEMT (Listing Continued, text begins on page 60) 


01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 


CHK10 


VALID 


CONT 


CONTI 


CONT2 
BLANK 


ab Be SS 


TOKEN 


CHKOFB 


CHK95 


CHK93 


OFFSET 


TOKENIL 


JR 
PUSH 
LD 
XOR 
LD 
POP 
JR 
CP 
JR 
LD 
JR 
cP 
JR 
cP 
CALL 
INC 
LD 
CP 
JR 
CP 
JR 
CP 
CALL 
JR 
LD 
JR 


NZ,CHK1O 
AF 

A, (QUOTE) 
l 
(QUOTE),A 
AF 

CONT 

OAH 

NZ, VALID 
A, ODH 
CONT 

' ' 
C,BLANK 
wes 

Z, SPACE 
DE 

(DE),A 


Z, CONTI 


t.! 
9 


Z,CONT1 
a 

Z, SPACE 
BUILD 
nay Ors 
CONT 


sno, continue 
ssave (AF) | 
;get quote value 
;switch it 

; and put it back 
srestore (AF) 

; and continue 
sline feed? 

sno, check validity 
sreplace w/ <CR> 

; and continue 
svalid char? 

3no, zap it 

scolon character? 
syes, add space 
sbump pointer 
sstore character 
;comma? 

syes, insert blank 
;semi-colon? 

syes, insert blank 
scolon character? 
syes, add a space 
3go for next 

szap the char 

; and continue 


Obtain characters represented by basic token 


from the token table in 


CP 
JR 
PUSH 
cP 
JR 
DEC 
DEL 
DEC 
DEC 
LD 
LD 
POP 
JR 
CP 
JR 
DEC 
DEC 
JR 
cP 
JR 
LD 
SUB 
LD 
LD 
LD 
INC 
CP 
JR 
DINZ 
SUB 


OFCH 

NC , BLANK 
AF 

OFBH 
NZ,CHK9S5 
DE 

DE 

DE 

DE 

A,27H 
(DE),A 
AF 

BUILD 

95H 

NZ, CHK93 
DE 

DE 

OFFSET 
93H 

NZ, OFFSET 
(REMARK) ,A 
7FH 

B,A 

HL, TOKTAB 
A, (HL) 

HL 

7FH 
C,TOKENI 
TOKENL 
80H 


the basic ROM. 


;garbage char? 

syes, zap it 

;save token 

szap REM token? 

sno, continue 

;backup 

; to the 

:.> prior 

; colon 

;change colon 

> to quote (') 

sclear the stack 

3go get next character 
sELSE token? 

sno, continue 

syes, delete the prior 
; space and colon 

: and continue 

;REM token? 

;no, compute offset 
;set REM indicator 

;get position in table 
; and put in (B) 

spoint to token table 
;get table character 
sincrement the pointer 
sfirst character of a token? 
sno, get next character 
syes, loop until token 
sgot it, adjust first char 


eas 
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02090 CALL SPACE jinsert space (maybe) We make C easy... 
02100 TOKEN2 INC DE ;increment buffer pointer , 
02110 LD (DE),A sand store in buffer 
02120 LD A, (HL) ;get next character — 
02130 INC HL sincrement token pointer 
02140 cr 7FH ;end of token? 
02150 JR C,TOKEN2 ;no, continue moving token 
02160 POP AF ;retrieve token 
02170 Ce OBCH ;TAB( token? 
02180 JP Z,BUILD ;yes, don't put blank 
02190 cr 93H ;REM token? 
02200 ar Z,BUILD ;yes, don't put blank 
02210 JR BLANK ;no, insert space Nee 
een oe Ss 
02220 ; ‘, . el 
02230 ;>>==> Conditional blank insert routine ; 
02240 ; Inserts a blank in the output buffer if: 
02250 3 1) we are not processing a REM statement, and 
02260 ; 2) we are not processing within quotes, and 
02270 ; 3) there is not a blank there all ready. 
02280 ; 
02290 SPACE PUSH AF ;save (AF) 
02300 LD A, (QUOTE) ;get quote value 
02310 OR A sinside quotes? and work! 
02320 JR NZ,XSPACE ;yes, no insert 
02330 LD A, (REMARK ) ;get rem value . , ; 
foske ee ‘ Sta kda Seakune Eco-C compiler... we've got it all. 
; Whether you’re a seasoned professional or just get- 
02350 JR NZ, XSPACE ;yes, no insert ting started in C, the Ecosoft C compiler has every- 
02360 LD A, (DE) ;get last char thing you'll ever need. 
02370 CP cS sis it a blank? COMPLETENESS: | . 
Our Eco-C compiler is a complete implementation 
02580 JR Z,XSPACE syes, ok of C and supports all operators and data types (includ- 
02390 INC DE ;bump pointer ing long, float and double). 
i 4 = k EFFICIENCY: 
sete of ” —:* oeen The compiler generates extremely efficient Z80 
02410 LD (DE),A sand add it code using Zilog’s mnemonics. On the benchmarks 
02420 XSPACE pop AF ;sretrieve (AF) tested, typically we finished either first or second 
02430 RET using substantially less generated code. 
02440 Te eee 
; The ECO-C library contains over 100 functions 
02450 ;>>==> At this point, the entire statement is in the that are UNIX V7 compatible, and includes a complete 
; : : transcendental package. Programs developed with the 
02460 ; primary output buffer. This section moves the Eco-C compiler can be moved to virtually any system 
02470 ; statement to the secondary output buffer and with little or no change. 
° : : : : : EASE OF USE: 
02480 ; inserts line breaks and indentation as required. The Eq: fonuiiler incladeehaikceebh naa aes 
02490 ; = assembler, Bnd iiraty ies eae and supporting 
: A ocumentation. The assembler (M80) generates 
lg i aallat é FESES LA. industry-standard REL file output. The linker (L80) is 
02510 INC DE mark the end fast and uses only the functions you request in the 
02520 LD (DE ) ,A ; of the statement program. Program development is a snap. 
: > The user’s manual is clear, concise and full of useful 
02530 LD DE,OUTLYN ;set output pointer information. For those of you just getting started with 
02540 LD HL,LINE ;set input pointer = - ra nee = copy ot ae cee 
: : uide (Que). This B. Dalton Best Seller has been 
02550 LD A, (LL) sget max line length adopted by a number of leading universities around 
02560 ADD A,6 ;add length of # = page: and is ince ed each compiler. The 
- . ook is designed to help you learn C from the ground 
peer Le hi pane per te 8) up. We ought to know... we wrote the book. 
02580 PUTNXT LOD A, (HL) ;get a byte We've made le el aad to work with for the 
” : professional and beginner alike. Most error messages, 
rage ie (OE) ,A Cae sear : ah for example, tell you in English (not just a number) 
02600 INC HL s;bump in pointer the line number and character position of the error, 
02610 INC DE ;bump out pointer what was expected and a page reference to the Guide 
02620 cp ODH s<LF>? eee for help if you need it. 
02630 JR Z, SPACER syes, insert indent We saved the best rot eed we ve cut the price by 
. : ? $100.00. Now you can buy the Eco-C compiler for 
asene = i ape af Paci only $250.00 (MACRO 80 and the book alone are 
02650 JR Z,ENDLYN 7yes, jump out foe alattl aECP ei ote be think one agree 
° ti that the Eco-C compiler is the best value available. 
ner os Seiad Con eee The Eco-C compiler ns a Z80 CPU, CP/M, 
; 54K of free memory and about 240K of disk space 
02680 ;>>==> This section will backup and insert a line break OMe ee eee he. version will be, avail 
02690 ; in the secondary buffer when the maximum line wes te 84. To order your Eco-C 
02700 ; length has been reached. If a blank is not found ] See 
; cos nc. 
02710 ; in the last 10 characters stored, the line break EG PC}. Rox sasoo ; 
$ i i ted at the maximum line length location. Indianapolis, IN 46268 ia 
ion : ita ei ke . ecosorT#Iinc. (317) 255-6476 oy 
j TRADEMARKS: 
02740 BACKUP LD (OL DOE ) , DE ;s8ave current (DE ) Eco-C (Ecosoft), MACRO 80 (Microsoft), CP/M (Digital Research) 
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IBM PERSONAL 
COMPUTER. 


THE PREMIER LANGUAGE 
OF ARTIFICIAL 
INTELLIGENCE FOR 

YOUR IBM PC. 


DATA TYPES 

Lists and Symbols 
Unlimited Precision Integers 
Floating Point Numbers 
Character Strings 
Multidimensional Arrays 
Files 

Machine Language Code 


@ MEMORY MANAGEMENT 
Full Memory Space Supported 
Dynamic Allocation 
Compacting Garbage Collector 


M@ FUNCTION TYPES 
EXPR/FEXPR/MACRO 
Machine Language Primitives 
Over 190 Primitive Functions 


m@ 10 SUPPORT 
Multiple Display Windows 
Cursor Control 
All Function Keys Supported 
Read and Splice Macros 
Disk Files 


POWERFUL ERROR RECOVERY 
8087 SUPPORT 

COLOR GRAPHICS 

LISP LIBRARY 


Structured Programming Macros 
Editor and Formatter 

Package Support 

Debugging Functions 

OBJ File Loader 


mi RUNS UNDER PC-DOS 1.1 or 2.0 
Gee eee 









lQLISP 
5V%"’ Diskette 
and Manual__—S—~* 175.00 
Manual Only ____———« $:- 30.00 


i q Integral Quality 


P.O. Box 31970 
Seattle, Washington 98103-0070 
| (206) 527-2918 


| Washington State residents add sales tax. 
| VISA and MASTERCARD accepted. 
| Shipping included for prepaid orders. 
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BASICEMT (Listing Continued, text begins on page 60) 


02750 LD (OLDHL) ,HL sand current (HL) 
02760 LD B,OAH slimiter value 
02770 BACK DEC HL ;unbump pointer 
02780 DEC DE sunbump pointer 
02790 LD Aa CAL) ;get character 
02800 cP As ;blank? 

02810 JR Z, BREAK syes, break here 
02820 DINZ BACK sno, try another 
02830 LD HL, (OLDHL ) scan't break it 
02840 LD DE , (OLDDE ) ; use old breaks 
02850 DEC HL sunbump for bump 
02860 DEC DE sunbump for bump 
02870 BREAK INC HL sskip blank 

02880 INC DE sskip blank 

02890 LD A,ODH sinsert a <CR> 
02900 LO (DE),A ; in the line 
02910 INC DE s;bump pointer 
02920 SPACER LD Rieko sget a blank 
02930 LO B,6 ; and blank count 
02940 SPACE2 LD (DE),A sinsert a blank 
02950 INC DE sbump pointer 
02960 DINZ SPACE2 snext? 

02970 LD eg sreset the line 
02980 LD B,A s length value 
02990 JR PUTNXT ;go back for more 
03000 OLDHL DEF W 0 ;storage space 
03010 OLDDE DEFW 0 sstorage space 
03020 ; 

03030 ;>>==> The statement has now been stored in the secondary 
03040 ; buffer with line breaks and indentation. ENDLYN 
03050 ; prints the secondary buffer on the line printer 
03060 ; inserting page eject commands as necessary. 
63070: ; 

03080 ENDLYN- DEC DE sback up one 
03090 LD A, 00H ;get a <CR> 

03100 LD (DE),A s and insert it 
03110 INC DE sbump pointer 
03120 XOR A sget a EOL char 
03130 LD (DE),A ; and mark it 
03140 LD HL,OUTLYN spoint to output 
03150 NEXTLN CALL PAGER scheck page break 
03160 CALL LPRINT sprint a line 
03170 INC HL sbump over <CR> 
03180 LD A, CHL) sget next char 
03190 OR A sEOL ? 

03200 JR NZ,NEXTLN sno, get more 
03210 RET ;all done 

O03270--% 

03230 ;>>==> This routine generates carriage returns to 
03240 ; eject a page when the page is full. 

03250 ; 

03260 PAGER LD A, (LINES) ;get line count 
03270 INC A ; and add 1 

03280 LD (LINES),A ; and store back 
03290 LD B,A sstore in (B) 
03300 LD A; tPE) sget page length 
03310 cP B stoo many lines? 
03320 RET NC sno, return 

03330 LD A,l ;yes, repage 
03340 LD (LINES),A sreset counter 
03350 LD A, (PS) ;get page spacing 


ee 
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SS sss sssesssssssssssstsnssssssssssssnsenessees 


03360 
03370 
03380 
03390 
03400 
03410 
03420 
03430 
03440 
03450 
03460 
03470 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 
03570 
03580 
03590 
03600 
03610 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 
03700 
03710 
03720 
03730 
03740 
03750 
03760 
03770 
03780 
03790 
03800 
03810 
03820 
03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 
04010 


LD B,A 
LD A,ODH 
LFEED CALL LP BYTE 
DINZ LFEED 
RET 
, 
s>2s=> This 
; disk 
’ 
GETBYT PUSH HL 
PUSH DE 
LD HL, (CHRPTR) 
LD DE , ENDBUF 
INC HL 
CALL CPHLDE 
JR Z,GREAD 
GETO2 LD A, (CTLKEY) 
BIT 2,A 
JP NZ,EXIT 
LD A, (HL) 
LD (CHRPTR),HL 
POP DE 
POP HL 
RET 
; storage 
CHRPTR ODEFW ENDBUF -1 
: read next sector of the 
GREAD LD DE ,DC8 
CALL READ 
LO HL,BUFFER 
JR Z,GETO2 
OR 80H 
CALL DOSERR 
JP EXIT 
‘ 
§ SS SSS SSesss2ss222e2e2e2222e2=---: 
3 BINDEC - (HL)=binary 
$ The output buffer must 
; 
BINDEC LD (BINA) ,HL 
LD (BIND) , DE 
INC DE 
INC DE 
INC DE 
INC DE 
LD (BIN4) ,DE 
LD B,5H 
XOR A 
LD HL, (BIND) 
BDOl LD (HL) ,A 
INC HL 
DINZ BD1 
LD HL, (BINA) 
LO A,H 
CALL BD4 
LD A, (BINA) 
CALL BD4 
LD HL, (BIND) 
LD B,5SH 
BD2 LD A, 30H 
ADD A, (HL) 
LD (HL) ,A 
INC HL 
DINZ BD2 
LD HL, (BIND) 


; and store in (B) 
;<LF> value 

;feed a line 
;more? 

s;back for more 


routine returns a single byte from the 
buffer to the caller in register A. 


;save (HL) 

;save (DE) 

;get byte pointer 
;and end of buffer 
;bump pointer 
;compare them 
;need next sector 
;get control key 
; <BREAK>? 

;yes, stop 

;get the byte 
;store pointer 
;sTretrieve (DE) 
;Tetrieve (HL) 
;send back byte 


for address of last character returned 


basic program 
s;point to FCB 
;read a sector 
;point to buffer 
; and return byte 
;set return code 
;display error 
;exit, stage left 


(DE )-->output buffer 
be exactly 5 bytes long. 


SS SS 22222222 @ @ @ @ @ ow ow = ow 
eee ieee ee ee 


;8ave binary number 

;Save beginning of buffer 
;increment (DE) 

; to the end 

: of the 

; buffer 

;store end of buffer address 
;snumber of bytes in buffer 
sinitial value for buffer 
;beginning of buffer 
sinitialize the 

; buffer to all 

; binary zeros 

;retrieve the binary number 
;get the MSB 

; and convert to decimal 
;get the LSB 

; and convert to decimal 
;buffer beginning address 
sbuffer length 

;convert to ascii value 
;convert digit to ascii 

; and store back in buffer 
;increment pointer 

;all digits done? 
;beginning of buffer 


(Continued on next page) 
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Multiuser/Multitasking 
for 8080, Z80, 8086 


Industrial 
Strength 


FORTH 









TaskFORTH., 


The First 
Professional Quality 
Full Feature FORTH 

System at a micro price* 


LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 


ke Unlimited number of tasks 


yx Multiple thread dictionary, 
Superfast compilation 


xx Novice Programmer 
Protection Packagem 


% Diagnostic tools, quick and 
simple debugging 


w Starting FORTH, FORTH-79, 
FORTH-83 compatible 


wx Screen and serial editor, 
easy program generation 


x Hierarchical file system with 
data base management 


* Starter package $250. Full package $395. Single 
user and commercial licenses available. 


If you are an experienced 
FORTH programmer, this is the 
one you have been waiting for! 
If you are a beginning FORTH 
programmer, this will get you 
Started right, and quickly too! 


Available on 8 inch disk 
under CP/M 2.2 or greater 
also 
various 51%4’’ formats 
and other operating systems 


FULLY WARRANTIED, 
DOCUMENTED AND 
SUPPORTED 








yo: DEALER | rua 
WSR) INQUIRES .| 
) INVITED aaa 





Shaw Laboratories, Ltd. 
24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 


Circle no. 53 on reader service card. 
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BASICFMT (Listing Continued, text begins on page 60) 


04020 LD 8,4H sbuffer length less 1 
04030 BD3 LD A, 30H sascii zero 

04040 cp (HL ) sis buffer char "0" 

04050 RET NZ ;no, return to caller 
04060 LD A, 20H syes, change to a blank 
04070 LD (HL) ,A ; and store in buffer 
04080 INC HL sincrement pointer 

04090 DINZ BD3 sloop for all but last char 
04100 RET ;return to calling routine 
04110 BINA DEF W OH ;storage for binary value 
04120 BIND DE FW OH ;storage beginning of buffer 
04130 BIN4 DE FW OH sstorage end of buffer 
04140 BD4 LD B,8H ;bits per byte 

04150 B05 PUSH BC ;save loop counter 

04160 PUSH AF ssave (AF) 

04170 CALL BD6 smultiply buffer by 2 
04180 POP AF sretrieve the value 

04190 RLA sshift bit to carry flag 
04200 PUSH AF ssave the value again 
04210 CALL C,809 sif bit set, add to buffer 
04220 POP AF sretrieve value again 
04230 POP BC srestore loop counter 
04240 DINZ BOS scontinue for all bits 
04250 RET sreturn to caller 

04260 ; 

04270 ;>>2=> Multiply the cantents of the buffer by 2 

04280 ; 

04290 BD6 LD HL, (BIN4) send of buffer address 
04300 OR A sreset the carry flag 
04310 LD B,5H slength of buffer 

04320 BD7 LD A, (HL) ;get a digit 

04330 ADC A,A smultiply by 2 and add carry 
04340 CF OAH sless than 10? 

04350 JR C,808 syes, skip adjustment 
04360 SUB OAH sadjust to less than 10 
04370 808 LD (HL) ,A sreturn to buffer 

04380 Ctr ;switch the carry flag 
04390 DEC HL spoint to next digit 
04400 DINZ BD7 sloop for all digits 
04410 RET sreturn to caller 

04420 ; 

04430 ;>>s=> Add 1 to the contents of the buffer 

04440 ; 

04450 BD9 LD HL, (BIN4) send of buffer address 
04460 LD B,5H slength of the buffer 
04470 BOA LD A, (HL) ;get a digit 

04480 INC A sadd 1 to the digit 

04490 LD (HL),A ; and return it to buffer 
04500 Er OAH sdigit less than 10? 
04510 RET is syes, return to caller 
04520 SUB OAH ;no, adjust to decimal 
04530 LD (HL) ,A ; and return to buffer 
04540 DE'C HL ;point to next digit 
04550 DJINZ BDA s;loop to handle carry 
04560 RET sreturn to caller 

04570. ; 

04580 ;==s= DECBIN === Calls: nothing 

04590 ;2s=22esssseeseesessssssesesessesessesssssesesse===* 

04600 ;=2==s== Convert ascii decimal to binary ======* 

04610 ;ssesssesesseessezssseseessessssssssssssessss===* 

04620 ; * 
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ann nnn nnn nncn nnn nnn nnn creer cccncnnnnenn ener eer SSS SSS SSS 


04630 ; on entry: (HL) => character string * 

04640 ; terminated by first non-decimal z: 

04650 ; character encountered * 

04660 ; : 

04670 ; on exit: (DE) = binary equivalent # 

04680 ; (HL) => non-decimal character * 

04690 ; - 

04700 SS SSSSSSSSSSSSSSSSS StS ss tess 2e2EFE2E2222222=2222====*% 

04710 ; 

04720 DECBIN- DEC HL ;set initial pointer 
04730 LD DE , OH ;zero the contents DE 
04740 DBl INC HL ;point to next character 
04750 LD A, (HL) ;get next character 
04760 SUB 30H ;adjust to binary 

04770 RET C ;return if character < "Q" 
04780 CP OAH ;character greater than 9 
04790 RET NC syes, return to caller 
04800 PUSH HL ;Save character pointer 
04810 LD H,D sget current value 

04820 LD a 4 ; from DE register 

04830 ADD HL ,HL ;0ld value times 2 

04840 ADD HL,HL ;0ld value times 4 

04850 AOD HL , DE ;0Old value times 5 

04860 ADD HL ,HL ;0ld value times 10 
04870 LD E,A svalue of new digit 
04880 LD D,OH ; to DE register 

04890 ADD HL, DE sadd to the’ old value 
04900 EX DE , HL 3; and return value to DE 


(Continued on next page) 





DLE SE LS SDE PS ISD ID SP MOIR SF, 


(BDSC 


. The fastest CP/M-80 C 
compiler available today 


FOR $29.95, MICRO-WYL WILL 





WHEN OTHERS WON'T! 





You'll know why INFOWORLD rated Micro-WYL’s performance 
“Excellent” when you want to insert a file into a file; when you 
want to print directly from the screen; when you want to see what 
your text will look like before printing; set tabs where you want 
them; write programs the easy way; and do many other things that 
no other word processor can do. Micro-WYL is a line editor; use it 
in conjunction with EMACS derivative word processors and you 
have the best of all worlds! For $29.95, plus $2.00 postage 
and handling, have. it your way! Sold with the usual 
Overbeek 30 day money-back guarantee. 


LET Micro-WYL DO IT ALL TODAY! 
Enclosed find check for $31.95 or 


charge my Mastercard# Ao eepires: 


Version 1.5 contains some nifty improvements: 

The unscrambled, comprehensive new User's Guide 
comes complete with tutorials, hints, error message 
explanations and an index. 

The CDB symbolic debugger is a valuable new tool, 
written in C and included in source form. Debug with 
it, and /earn from it. 

Hard disk users: You can finally organize your file di- 
rectories sensibly. During compilation, take advantage 
of the new path searching ability for all compiler/linker 
system files. And at run-time, the enhanced file 1/O 
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; Visa# Expires: 
ple filenames, so you can manipulate files located any- 
where on your system. Check format desired: 
: ‘er , : 8° SSSD Osborne Single Density __KayPro II 

_BDS C’s powerful original features include dynamic - Saperbrain __Osbome Double Density __NEC 5” 
overlays, full library and run-time package source __Northstar Advantage —Morrow Micro Decision ___Televideo802 
code (to allow customized run-time environments, —Northstar Horizon —Xerox 820 Single Density __ALTOS 5 
Such as for execution in ROM), plenty of both utilitar- —Apple/Softcard —Xerox 820 Double Density __Epson 


ian and recreational sample programs, and speed. 
BDS C takes less time to compile and link programs 
than any other C compiler around. And the execution 
speed of that compiled code is typically lightning fast, 
as the Sieve of Eratosthenes benchmark illustrates. 
(See the January 1983 BYTE, pg. 303). 


BD Software 8” SSSD format, $150 


I'm not ready to order now, but send me information about all the 
affordable programs from Overbeek Enterprises. 


Name 
a a a ct Sh EE Tee 2 


Address 
ee Pee ee eam ree ee ee en a ere 
City State Zip 


OVERBEEK ENTERPRISES, P.O. Box 726D, Elgin, IL 60120 
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P.O. Box 9 Free shipping on pre-paid orders 312-697-8420 
Brighton, MA 02135 Call or write for availability on Micro-W YL — another affordable program from Overbeek Enterprises. 
(617) 782-0836 other disk formats 





CPS ALAAPDAAAPDAPLLEL ISS PS 


Circle no. 4 on reader service card. Circle no. 41 on reader service card. 
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BASICEMT (Listing Continued, text begins on page 60) 


04910 
04920 
04930 
04940 
04950 
04960 
04970 
04980 
04990 
05000 
05010 
05020 
05030 
05040 
05050 
05060 
05070 
05080 
05090 
05100 
05110 
05120 
05130 
05140 
05150 
05160 
05170 
05180 
05190 
05200 
05210 
05220 
05230 
05240 
05250 
05260 
05270 
05280 
05290 
05300 
05310 
05320 
05330 
05340 
05350 
05360 
05370 
05380 
05390 
05400 
05410 
05420 
05430 
05440 
05450 
05460 
05470 
05480 
05490 
05500 
05510 


POP HL sretrieve character pointer 
JR DB1l ;go to process next char 
’ 
ss== PRINT === Calls: OQUTBYT 
$seasssssessssssesesssssessssz===* 
; Output a line to the screen * 
$aasessssssssssesesesssessss2e55* 
; 
PRINT PUSH AF ;save (AF) reg 
PLOOP LD A, (HL) sget a byte 
OR A stest or OH 
JR Z,LAFIN syes, jump 
CALL OUTBYT soutput byte 
INC HL sbump pointer 
JR PLOOP snext byte 
LAFIN POP AF srestore (AF) 
RET sreturn 
’ 
;22= OUIBYT === Calls: $VDCHAR (0033H) 
ewe eseamm ewe eenw ewer erre2re2e2223222222ES322E222= * 
s2aeessesssssssssszsssssssssssssS55555- 
; Output a character to the screen 96 
ssonsesssssssesrsssssssee2S55555555=555=* 
: 
OUTBYT PUSH DE ;save (DE) reg 
PUSH LY ;save (IY) reg 
CALL 33H sput the byte 
POP LY srestore (IY) 
POP DE srestore (DE) 
RET ;return 
ss== LPRINT === Calls: LPBYTE 
soacsscesesssssszssssssssssssssssss555% 
; Qutput a line to the line printer * 
ee ee eee esses sessssssesssssseeeszese2=* 
; 
LPRINT PUSH AF ssave (AF) reg 
LPNTX LD A, (HL) ;get a byte 
OR A sbyte zero? 
JR Z,LAFINX syes, jump 
CALL LPBYTE sprint the byte 
cP ODH 3<CR>? 
JR Z,LAFINX syes, exit 
INC HL sbump pointer 
JR LPNTX ;go again 
LAFINX POP AF srestore (AF) 
RET sreturn 
’ 
sza=z LPBYTE === Calls: $PRCHAR (003BH) 
ssensseessssssssssssssssssssssssss555* 
; Qutput a byte to the line printer * 


; 
LPBYTE 


CF i 


EXX 

LD HL,37E8H 
LD B,A 

LD A, (HL) 
AND OFOH 

cP 30H 

JR NZ,LP1 
LD A,B 

CALL 003BH 


;save the regs 
;status byte addr 
;save character 
sload status 
sstrip off status 
sprinter on? 

3;no, get stuck 
sret character 
;send the byte 


BSL ee Eg a 
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05520 EXX ;restore regs 

05530 RET ;go back 

05540 ; 

05550 ;=== LPSTAT === Calls: nothing 

05560 ;=ssss2sses22sesseeeeeeeEESee2e22e22222=2==% 

05570 ; Check line printer to see if ready * 

05580 ;22=sss222ss222s2s2e22222252e22222222==--% 

05590 ; 

05600 LPSTAT LD A, (LPPORT) ;get printer status byte 
05610 AND OFOH ;strip off non-essentials 
05620 CP 30H ;is printer ready? 

05630 RET Z ;yes, return to caller 
05640 LD HL,LPMSG ;no, get message address 
05650 CALL PRINT ;display message on screen 
05660 STUCK LD A, (CTLKEY) s;wait until <ENTER> pressed 
05670 BIT 0,A ;<ENTER> pressed? 

05680 JR Z, STUCK ;N0, wait some more 

05690 JR LPSTAT ;yes, check status again 
05700 LPMSG DEFB OOH 

05710 DEFM '>>s=> Printer not ready, '! 

05720 DEFM "press <ENTER> to continue.' 

05730 DEFW ODH 

05740 ; 

05750 ;=s= INPUT (INPUTP) =s=2 Calle: INBYTE, QUTBYT, PRINT 

05760 p SSSSSPPSSSSSSSssssesssssssessseesse2es222eese2222-2=-2----% 
05770 ; Obtain line from the keyboard (with optional prompt) #* 
05780 p SRSSS SSS SSS SSS Ss ssscsssssseessssessee2eseesese22-222=---% 
BS 790. i 

05800 ; entry: (HL) => input buffer 

058610; (B) = max. number of characters 

05820 (INPUTP): (DE) => prompt message 


© 
Ww 
Les) 
Wad 
(an) 
we we 


exit: (HL) - unchanged 


‘eee ee ee Ke OK eh eh o/h OK OX 


05850 ; (DE) => last character 

05860 ; (C) - original contents of (B) 

05870 ; (B) - actual # of characters 

05880 ; (A) = termination character 

05890 ; 

05900 ; note: The termination character is 

05910 ; included in the character string. 

05920 ; 

05930 p SSSESSSS SS SSS SS sssssessssssssssssss2esseeesee2eseeee----4% 
05940 ; 

05950 QUESTM DEFM Th ae ;question mark prompt 
05960 NOP ;prompt terminator 

05970 INPUTP EX DE ,HL ;Shift prompt addr to HL 
05980 CALL PRINT ;display prompt message (Continued on next page) 





748s <2CS} IEEE 488 TO $-100 INTERFACE 


Pe RS | 

IEEE - 488 "Handles all IEEE-488 1975/78 functions 
"IEEE 696 (S-100) compatible 
*"MBASIC subroutines Supplied: no BIOS 
mods required 


* 3 parallel ports (8255A-5) 
"Industrial quality; burned in and tested 
a3375 


[Dealer inquiries invited] 


DSW DIGITAL 


20655 Hathaway Ave. 
Hayward, CA 94541 415/ 887-5711 
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BASICFMT (Listing Continued, text begins on page 60) 


05990 EX DE ,HL sshift buffer address to HL 

06000 INPUT EX DE, HE sshift buffer address to DE 

06010 LD HL,QUESTM spoint to question mark 

06020 CALL PRINT sdisplay question mark 

06030 LD C8 smove maximum chars to C 

06040 XOR A sinitialize the byte counter 

06050 LD B,A ; contained in register B 

06060 PUSH DE sshift buffer address 
06070 POP HL ; to the HL register 

06080 DEC HL ; and decrement it 

06090 ILOOP1 CALL INBYTE ;get character from keyboard 

06100 LO (SAVEAZ),A s and store for later use 

06110 cP O8H sis character a backspace? 

06120 JR NZ,STOREZ sno, jump to store character 

06130 LD A,B ;get character count 

06140 OR A sany characters yet? 

06150 JR Z,1LOO0P1 ;no, skip backspace 

06160 LD Ag? oe syes, load a blank 

06170 LD (HL) ,A ; and store in buffer 

06180 DEC HL sbackup one character 

06190 DEC B ; and decrement char counter 

06200 LD A, 8H sload backspace character 

06210 CALL OUTBYT ; and display on screen 

06220 JR ILOOP1 slook for more input 

06230 STOREZ CP OOH sigs character <ENTER>? 

06240 JR Z,INRETZ syes, go to return 

06250 CP 1H sis character <BREAK>? 

06260 JR Z,INRETZ syes, go to return 

06270 LD A,C sget maximum length 

06280 cP 8 sdo we have max. chars? 

06290 JR Ly tue syes, ignore input 

06300 LD A, (SAVEAZ) sno, retrieve character 

06310 INC B sincrement byte counter 

06320 INC HL ; and address pointer 

06330 LD (HL),A ; and store character 

06340 CALL ouTeyYT ; and display character 

06350 JR ILOOP1 ;go to look for more 

06360 SAVEAZ NOP scharacter storage area 

06370 INRETZ INC HL sincrement pointer 

06380 LD (HL) ,A ; and store last character 

06390 EX DE ,HL srestore registers 

06400 CALL OUTBYT sdisplay last character 

06410 RET sreturn to caller 

06420 ; , 

06430 ;=2== INBYTE === Calls: KBSCAN 

06440 peeeassscessssessss22522552525522=* 

06450 ; Wait for a keyboard character * 

06460 s seescssssssssssssssssssssseesss2=5% 

06470 ; 

06480 INBYTE CALL KBSCAN slook for a byte 

06490 OR 5 ;zero returned? 

06500 RET NZ sno, return 

06510 JR INBYTE syes, look again 

06520 ; 

06530 ;2=2= KBSCAN === Calls: $KBCHAR (002BH) 

06540 S seeszesssssssssseesessssssz5255=5* 

06550 ; Scan for a keyboard character * 

06560 s seressesssssssssesseeessseese5===* 

06570 ; 

06580 KBSCAN' PUSH DE ;save (DE) reg 

06590 PUSH LY ssave (IY) reg 
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enn nnn nnn rar cnnn nner errr SSS SSS SSS SSS SSS SS SSS hl 


06600 CALL 2BH ;scan keyboard 

06610 POP LY ;restore (IY) 

06620 POP DE ;restore (DE) 

06630 RET ;return 

06640 ; 

06650 ;=== CPHLDE === Calls: nothing === equivalent to RST 18H 
06660 ;s=2s22s222222s22222s222S2222222222e5e222222--=--=-=-% 

06670 ; Compare the contents of registers DE and HL * 

06680 ;s2s2=ss2s2sss2s2s22e222e22e22222222222222222=--=--=-=% 

06690 ; 

06700 CPHLDE LD A,H ;get MSB number 1 

06710 SUB D ;compare MSB's 

06720 RET NZ ;return if not equal 

06730 LD A,L ;get LSB number 1 

06740 SUB E ;compare LSB's 

06750 RET s;return to caller 

06760 ; 

06770 : HEHEHE REREELEHREREREERE EEE EEEE EERE REREEREEEEEEREEEEEES 
06780 ; * Data storage areas, buffers, and control blocks * 
06790 $ SELLER HEEEEEERA RHEE ERE RHEE RRERE EERE ERE REEREEESD 
06800 ; 

06810 LINES NOP snumber of lines printed value 
06820 QUOTE NOP ;quote processing logical variable 
06830 REMARK NOP ;remark processing logical variable 
06840 LL DEFB 79 ;line length (less 6) 

06850 PL DEFB 60 ;page length (number of lines) 
06860 PS DEFB 6 s;page spacing (lines between pages) 
06870 DCB DEFS 32 ;File Control Block (FCB) 

06880 BUFFER DEFS 256 ;Input file buffer 

06890 ENDBUF EQU $ ;end of input file buffer label 
06900 OUTLYN' ODEFS mi ;secondary output buffer 

06910 LINE EQU $ ;primary output buffer 

06920 ENDPGM EQY $ ;end of program label 

06930 CORE EQU ENDPGM-BASF MT ;core used calculation 
06940 END BASFMT 


End Listing 


















NOW FOR THE 
IBM PC 
+ COMPATIBLES 





WINDOWS FOR C” 


SCREEN MANAGEMENT TOOL FOR C PROGRAMMERS 








A COMPLETE WINDOW SIMPLIFY ¢ IMPROVE 
DISPLAY SYSTEM e Menus ¢ Help files 
¢ Unlimited windows and text files e Data screens e Text handling 







e Instant screen changes 

© Overlay & restore windows 

e Change attributes 

e Horizontal and vertical scrolling 
e Variable text margins 

¢ Word wrap option 


© BSCIT ile Handling VERSATILE ¢ FULLY DOCUMENTED 
Available For: Lattice C, C86, Microsoft C, DeSmet C (MS or PC DOS) (please specify) 






ALL DISPLAYS 
C SOURCE MODULES FOR 


menus, Cursor control, ASCII file 
display, text-mode bar graphs; 
+ complete building block subroutines 























Introductory Special $119.95 A PROFESSIONAL SOFTWARE TOOL FROM For Order or Information: 802-848-7738 


($150 after May 31) Master Card & Visa Accepted 
Demo disk & manual $30 CREATIVE SOLUTIONS Shipping $2.50 


(Applies toward purchase) 21 ElmAve., BoxD4, Richford, VT 05476 VT residents add 4% tax 
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microSUB:MATH 


Company: foehn consulting, P. O. Box 
5123, Klamath Falls, OR 97601 
Computer: Microsoft Fortran-80 and 

Cromemco Fortran IV (CP/M-80 
only), Supersoft SSS Fortran (CP/M- 
80 and MSDOS), and IBM Fortran 77 
Price: $250.00 ($25.00, manual only) 
Circle Reader Service No. 133 
Reviewed by Elbert F. Hinson 


microSUB:MATH is a rich collection 
of Fortran numerical-methods subrou- 
tines for use in the scientific and engi- 
neering fields. These routines are meant 
for serious Fortran programmers. The sub- 
routines in this package provide many of 
the mainframe computer Fortran library 
routines for use on a microcomputer. 

The package I received was for Micro- 
soft Fortran-80 on a SSSD, 8-inch CP/M 
2.2 disk. The routines are also available 
in almost any popular 5%4-inch disk for- 
mat and are available for SuperSoft 
Fortran and Cromemco Fortran. By the 
time you read this article, a version should 
be available for the IBM PC. 

The software is organized into six 
general areas. Two libraries, one for 
single precision and another for double 
precision, are provided for each area. The 
six areas are functions, interpolation, 
integration, matrix/linear systems, poly- 
nomials/nonlinear equations, and differ- 
ential equations. Table 1 (at right) con- 
tains a complete description of the 
contents of each single-precision library. 
The double-precision libraries contain the 
same routines but provide the accuracy 
of double precision. The double- precision 
library names and subroutine names are 
prefixed witha D. For example, the library 
DFUNC is for double-precision functions 
and function DSINH is the double- 
precision hyperbolic sine. 


Documentation 


The manual supplied has a table of 
contents, an index, and tabs for each chap- 
ter. The introductory section gives an 
overall view of the available routines and 
how to use them. The method of linking 
the library routines with your loader is 
covered in sufficient detail for anyone 
familiar with Fortran. This is not a tuto- 
rial, so some knowledge of Fortran is 
expected if you wish to use these library 
routines. | 

Part of the introductory section is 
devoted to building custom libraries. This 


details which of the microSUB:MATH 
routines call other routines in the library 
and in what order the routines must be 
loaded in a custom library. Each of the 
six library sections has an individual write- 
up of each routine in the library. 

The subroutine documentation is 
clear and easy to use. The manual provides 
the Fortran calling sequence, an explana- 
tion of the input and output parameters, 
an explanation of the method used and a 
sample program for each subroutine in 


Subroutine 


Library 

FUNC SINH, COSH, TANH 

(Functions) ASINH, ACOSH, ATANH 
CM, CD, CEXP, CLOG, 
CPWR | 


CSIN, CCOS, CTAN 
PR, RP 


RJN, RJV 


ERF 

GAMMA 
SFRES, CFRES 
SiC 

CNST 


INTP 
(Interpolation) 


LIN 
LAGR 
UDVTB, UDVIN 


EDVTB, EDVIN 


SPLTB, SPLIN 
LAGDB 
INTG SIMP 
(Integration) ASMP 
ROMB 
GAUS1 
GAUS2 
_ MATX RLU, SLU 
_ (Matrix/ 
Linear SOER, SOES 
Systems) 
GJOR 
MTM 


the library. There are appendices for quick 
reference and test program results. 

A set of test programs is provided on 
the distribution disk that exercises every 
subroutine in every library. Results of 
the test programs are provided in the 
manual for single precision but not 
double precision. 


Performance 
I tested a significant number of the 
subroutines but did not have time to test 


Purpose 
Hyperbolic trigonometry 


Complex math - multiply, divide, 
exponential, natural log, and raise 
to power 

Complex trigonometry 


Polar to rectangular and rectangular 
to polar transform 


Bessel functions, integer and real 
orders 


Error function 

Gamma function 

Fresnel integrals, S(x) and C(x) 

Sine and cosine integrals 

Constants - PI, Euler’s, and computer 
accuracy | 


Linear interpolation 

Lagrange interpolation © 

Table for divided difference and solu- 
tion for unequally spaced points 

Table for divided difference and solu- 
tion for equally spaced points 


Second derivative table for cubic spline 
and cubic spline interpolation 


Double Lagrange interpolation 


Simpson's 

Adaptive Simpson’s 
Romberg 

Low order Gauss- Legendre 
High order Gauss- Legendre 


LU decomposition and solution by 
Gauss elimination — 


Gauss elimination with scaling and 
partial pivoting and solution from 
elimination 


Gauss Jordan elimination 
Matrix multiplication 


Table 1. 
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every one of them. I compared the results 
of most of the functions for random 
values against the CRC math tables. Func- 
tion results appeared good for six digits 
of precision. Double precision should 
provide more accuracy if it is needed. 

I ran parallel tests of many of the 
Matrix, Integration and Polynomial sub- 
routines against the programs in the book 
Fortran Programs for Scientists and En- 
gineers by Alan R. Miller. The results 
were the same for at least five digits in the 
single-precision versions. Although I did 
not specifically benchmark the results, 
the routines appeared to execute at about 
the same speed. I found it very easy to 
substitute the subroutines from the 
libraries for the subroutines in Mr. Miller’s 
book. It took an awful lot of my time 
and typing to build the same thing that is 
contained in the library. 


(Continued from previous page) 


Subroutine 
MINV 
JCBI 


Library 


HOR1 


INVIT 
HOR2 


HOQR3 


POLY 
(Polynomials/ 
Nonlinear 
Equations) 


HINT 
BRENT 
NEWT 
NEWTS 


JACM 


CHB1, CHB2 
HERM 
RJACB 
RLAGR 
RLEGN 


PLYR1 
PLYR2 


POLY 
PLYR3 


DIFEOQ 
(Differential 
Equations) 


RGK 
ADMLT 
RKF 


Support 

I talked to Mr. Hugh Currin of foehn 
consulting about the package and some of 
my wish list. The results of the double- 
precision test programs should be included 
in later releases, but this present omission 
should provide no real problems to the 
user. I asked Mr. Currin if he had con- 
sidered including the transcendental func- 
tions tangent, arcsin, and arccos that 
Microsoft left out of their library. He 
indicated that they could be included in a 
later release. 


Conclusions 

I highly recommend this package for 
any scientist or engineer who would like 
the power of mainframe _ subroutine 
packages on a microcomputer. There is 
a significant amount of scientific work 
that can be done on a dedicated micro- 


Purpose 

Matrix inversion 

Jacobi, eigenvalues and -vectors of real 
symmetric matrix 


HOR| eigenvalues of a real symmetric 
matrix 


Eigenvector of areal symmetric matrix 


HORI eigenvalues of a general real 
matrix 


HGRI eigenvalues and -vectors of 
general real matrix 


Real root of an equation: 
Half interval method 
Brent’s method 
Newton's method 
Nonlinear system of equations 
(Newton’s method) 
Jacobian matrix (used in NEWTS) 
Orthogonal Polynomials: 
Chebyshev, first and second kind 
Hermite 
Jacobi 
Generalized Laguerre 
Legendre 
Roots of Polynomials: 
Second, third, and fourth order 
One polynomial root 
(Muller’s method) 
Polynomial evaluation 
Roots of polynomial 
(Muller’s method) 


Runge-Kutta, fourth order 

Adams-Moulton, fourth order 

Runge-Kutta-Fehlberg 
variable step size 


Tabie 1. 





computer instead of fighting a busy main- 
frame. This package is very easy to use and 
contains a very powerful set of numerical 
subroutines for microcomputers. 


METAFILE Application 

Development System 
Version 7.0 (Major_Updates. 
Minor_Updates) 

Company: Sensor-Based Systems, 15 East 
Second Street, Chatfield, MN 55923 - 
1297, (507) 867-4440 

Computer: IBM PC or XT. IBM PCDOS 
version 1.1 or 2.0. Monochrome or 
color monitor. Minimum 128K RAM; 
640K supported. One 2s/2d floppy 
disk drive plus one other storage 
unit (floppy or hard disk). Asyn- 
chronous communication adapter - 
RS232C. Printers supported: IBM 
Epson, NEC 3550, Dataproducts 
M200, Okidata 84 

Price:$1050 (minor updates $25; major 
updates $350) 

Circle Reader Service No. 135 

Reviewed by Morton F. Kaplon 


The vendor’s release describes META- 
FILE as follows: 

“The METAFILE Software System 
creates a development and operational 
environment that includes integrated 
facilities for high-level programming, 
word processing, data base management, 
modeling, report generation, and com- 
munications. ” 

This does indeed reflect the cap- 
abilities contained within METAFILE. 
The dictionary lists a variety of meanings 
for the prefix ‘‘meta,”’ but clearly the one 
intended here is that of ‘“‘beyond’’ or 
“transcending.”” And METAFILE cer- 
tainly does extend the usual concepts 
associated with filing in its most general 
sense. 

The potential users of this package 
could easily include a commercial enter- 
prise requiring sophisticated management 
support, an applications programmer 
writing in a high-level language (META- 
FILE, in this case), and a stand-alone 
individual who likes to have a lot of cap- 
ability at his or her fingertips. An example, 
which demonstrates both the program’s 
integration and its power, is the ability 
to incorporate extensive numerical or logi- 
cal calculations within a word processing 
environment and to store those calcula- 
tions in either an evaluated or an un- 
evaluated form so that the input can be 
changed, rather like a spreadsheet (though 
this is certainly not a spreadsheet), to 
obtain an output reflecting the change. 

In order best to understand META- 
FILE’s structure, we have characterized 
it as an operating system, called META- 
FILE ASSISTANT, that controls access 
to a series of integrated and interacting 
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programs. These programs include: Record 
Management; Text Management; Text 
Print Control; and METAFILE Command 
Language. These terms are from the man- 
ual. In more familar language the programs 
are, respectively: Relational Data Base; 
Full Screen Editor; Text Formatter; and 
METAFILE Interpreter. 


METAFILE employs two distinct 
operational screens. One, which we will 
refer to as the COMMAND mode screen, 
can be considered as METAFILE’s oper- 
ating system screen, and the other, which 
we will call the EDIT mode screen, is 
that of the text editor. 


COMMAND Mode 


When you call METAFILE from DOS, 
the first screen presented prompts for a 
user ID (optional) and the date/time if 
not entered via a clock/calendar on boot 
to DOS; it then asks you to press Enter. 
The user ID is a METAFILE built-in 
function and could be easily adapted, 
using their programming language, to con- 
trol operator file access. The next screen 
displays the COMMAND mode of META- 
FILE (Figure 1, below). 

The screen is 80 columns wide by 24 
rows deep. The failure to use the 25th 
row, available on the IBM PC, is probably 
related to the program’s origins from the 
“Vector 3.’’ These origins are reflected 
also in the way the function keys on the 
keyboard are ignored, using instead 
various Ctrl-letter combinations, These 
aspects show a weakness in design that 


hee ate owe oti leg ee enn aw ee ae Sak aetna ee ei OR ae ae a WR ome a eS ena ma SR eee eee 


Sensor-Based Systems states will be 
remedied in their next release. 

The 23rd row is used for status 
information, and the 24th row is used for 
command area entry and for messages. 
The 22nd row is held blank to allow sep- 
aration between the display area and the 
status lines, thus leaving a usable display 
area of 21 lines. Both the status area and 
that containing the METAFILE ASSIS- 
TANT are in reverse video. 

The METAFILE ASSISTANT con- 
trols access to aset of integrated programs, 
METAFILE is essentially a menu-driven 
program, choices being made by posi- 
tioning the cursor on an option and 
pressing the Return key; depending on 
the option selected, further menus may 
be presented for additional selection. 
Some commands can be entered directly 
by typing the appropriate command, thus 
bypassing some intermediate menu struc- 
ture. 


Perhaps the two most-used keys with 
METAFILE are Esc and ~, the latter 
not requiring the Shift key. ~ is referred 
to as the ATTN key, and when pressed it 
presents in the display area the relevant 
menu for the program in operation or 
the METAFILE ASSISTANT menu. The 
Esc key is implemented in the same way 
as in VisiCalc, Lotus 1-2-3, and many 
other programs: it takes you back one 
level in your calling sequence. 


CALCULATOR 


Of the five principal options, CAL- 
CULATOR offers the most immediate 
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Figure 11. 





access. This option positions you directly 
in a screen insert, in reverse video and of 
the same contour as METAFILE ASSIS- 
TANT, from which you may perform a 
variety of numerical and logical calcula- 
tions using the METAFILE Interpreter. 

In the CALCULATOR mode, you 
can carry out any of the allowed META- 
FILE operations using numbers, strings, 
defined variables, and built-in functions 
for its operations. Calculations are carried 
out in floating decimal to 29 places. In- 
cluded in the operations are add, sub- 
tract, multiply, divide, raise to power 
(**) operations on ‘“‘dates,” and the 
standard set of relational operations, for 
both numbers and strings, yielding a 1 if 
true or a O if false. The logical AND, OR 
conjunctions are included. 

Built-in functions include natural 
logarithms, absolute value, random num- 
bers, a variety of ‘“‘date/time’’ functions, a 
function returning a one-byte binary 
equivalent of the value of its argument 
(this is used for printer control address- 
ing), and a host of others related prin- 
cipally to data base structures. Arithmetic 
is performed strictly from left to right, 
and a generous use of ( ) is suggested to 
ensure that CALCULATOR does what is 
intended. 


ACTIVE CONTEXT 


The ACTIVE CONTEXT option 
offers a menu enabling selection from a 
listing of submenus. These summarize the 
active resources in METAFILE. They 
include: inter alia; the status of param- 
eters established in the text editor, such 
as margins, search and translate values, 
page formats, printer status, etc.; struc- 
ture of record files; listing of variables 
established with memory used; name of 
current drive; active files; and a host of 
other parameters defining the current 
status of the system. ACTIVE CONTEXT 
is presented in the same format as META- 
FILE ASSISTANT. 


LOOKASIDE 


The LOOKASIDE option is a partic- 
ularly useful utility. Essentially, LOOK- 
ASIDE is a split-screen facility, but in 
METAFILE’s realization, the alternate 
view is presented in the same reverse 
video setaside contour as the METAFILE 
ASSISTANT. Selecting LOOKASIDE pre- 
sents you with a submenu of three 
choices: EDIT, UPDATE, and VIEW, as 
well as the option of typing in a com- 
mand, as is offered in METAFILE AS- 
SISTANT. 

It is useful to think of LOOKASIDE 
as a second (albeit somewhat less en- 
riched) command screen from which to 
exercise METAFILE’s capabilities. Thus, 
selecting one of the options can lead to 
further menu choices, as from META- 
FILE ASSISTANT, or entering a com- 
mand directly on LOOKASIDE’s com- 
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mand line can enable you to move more 
directly to the task. 

Selecting the EDIT option allows 
you to select a text for editing. Choosing 
the VIEW option allows a passive inter- 
action with a file or record (like DOS’s 
““type”’). Choosing the UPDATE option 
allows operations to be performed with 
the data base. Other options may be 
entered directly. In LOOKASIDE, you 
have the same full power of the utilities 
available as if they had been called from 
the COMMAND screen. 


Used in conjunction with the regular 
EDIT mode, this option allows the 
equivalent of “‘copying’’ from the LOOK- 
ASIDE file into the current text buffer 
by utilizing the include facility of META- 
FILE’s editor. This allows you to look at 
what you may want to include in LOOK- 
ASIDE, edit it, write it out to file, and 
then read it back in, into the active text 
buffer. 


DIRECTORY 


The DIRECTORY option is con- 
cerned both with the management of the 
Storage devices and with the active text 
buffer. Since METAFILE considers cer- 
tain file types as reserved (e.g., those 
dealing with procedures, descriptions, and 
forms) and distinct from text files, this 
option offers the viewer the choice of a 
file listing by drive and type (and text is 
considered a type) or, under General 
Directory, by drive without restriction. 
Optionally, the current text buffer can 
be chosen. Once a file is selected, the 
user is presented the choices of EDIT, 
VIEW, or PRINT. Finally, data is pre- 
sented on storage space availability and 
entry utilization. Some of the submenus 
of DIRECTORY are also available from 
other menus. 


FACILITIES 


The FACILITIES menu offers the 
largest number of submenus: nine, plus 
the usual choice of typing in a command. 
Each of these options in turn references 
further submenus. If METAFILE has an 
operational core, it is contained here. 
Included is access to basic operating 
system commands dealing with file man- 
agement, such as storing, activating, 
erasing, renaming, transferring from one 
storage device to another, and establish- 
ing communications with other META- 
FILE systems via an “‘on line’’ (local net- 
work). Access to the editor is also avail- 
able here. 

Of particular importance is entry to 
the large resource of commands dealing 
with the data base; these include com- 
mands relating to its definition, mainte- 
nance, and interrogation, as well as the 
structures relating to form preparation 
and report generation. An additional 
option available relates to the procedures 
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to “‘import”’ data base files from ‘‘foreign”’ 
formats into METAFILE. 


EDIT Mode 


The EDIT mode contains the (full) 
screen editor. The display area is 80 
columns wide and 21 rows deep. Row 22 
is blank, and rows 23 and 24 are used for 
status and prompts, respectively (row 25 
is not utilized). The status line displays 
(in reverse video) the filename; line and 
column number of the cursor with respect 
to the upper left corner of the complete 
text; line and column number of the 
cursor with respect to the current screen 
(frame); margin status; mode status 
(wordwrap, insert or overtype, etc.); and 
percent of text space filled. Horizontal 
scrolling up to 250 columns occurs if 
wordwrap is not enabled at a column less 
than 80. 

METAFILE’s EDIT buffer is main- 
tained entirely in memory and has a 
maximum capacity of about 63K. Due 
caution is required in movement between 
the EDIT and COMMAND modes so that 
the active EDIT file is not lost; META- 
FILE has inserted prompts to ensure that 
the buffer is not inadvertently lost. 

The EDIT mode is used for a variety 
of purposes in addition to straight text 
editing. On one level it can be viewed as 


COMPARE II 


(reference) —» 
text 
file 





the editor for the METAFILE command 
language. In EDIT you can write a 
METAFILE procedure (program) and 
run it (note the similarity to BASIC). 
The editor is also used to create forms for 
data entry and to format reports. 

Access to the various editing com- 
mands is via the ATTN (~) key where a 
menu is presented. Selection can be made 
by positioning the cursor on the com- 
mand and pressing Enter or by typing the 
first letter of the command. A help facil- 
ity is available. The editor is crisp in its 
response to commands. In fact, the only 
slow response was that of its type-ahead 
buffer, principally when scrolling beyond 
column 80. In that case, it was easily 
fillable, to which it responds with the 
standard IBM “‘beep.”’ 


As a word processor, EDIT is quite 
good, comparing quite favorably with 
many stand-alone programs. It has some 
very good features that many do not have 
and lacks some that would make it even 
better. One of its nicer features is the 
automatic reformatting (if wordwrap is 
enabled) of text in the insertion mode. A 
negative feature is the lack of any overall 
reformatting capability. Once the margins 
are set, you cannot return, change them, 
and reformat. It has a reasonable set of 
cursor and text controls: move, copy, 


Differences to file 


Differences to terminal 


Differences to printer 
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delete line and text block, search and 
replace, and the ability to insert files into 
text, to print blocks of text, or to save 
them to disk. 


Text Formatting 


Extensive formatting commands al- 
low headers, footers, centering, protec- 
tion of text block on printing, multiple 
print copies, printing of selected pages, 
automatic page numbering and date 
inclusion, right justifying, and others. 
Practically any METAFILE command 
can be included in the print formatting, 
and printing can be done very easily from 
within METAFILE. The print control 
commands are included in the text (on 
separate lines) using %command at 
column 1, whese command is any valid 
print command or any METAFILE com- 
mand. Comments may be included by 
following the % symbol with a semicolon, 
followed by the comment. 


Special Features 


It is worth considering some of the 
unusual facilities of METAFILE. One of 
these is the ability to include operations 
within a text file. Any allowed META- 
FILE command or active variable can be 
accessed in the EDIT mode by placing 
the variable name or the METAFILE 
command within { }. The editor has a 
command named EVALUATE that dis- 
plays the value of the variable or of the 
operation contained within { }. EVALU- 
ATE toggles between evaluated and 
unevaluated displays. 

For printing or saving text to file, 
one can choose either the evaluated or 
the unevaluated mode. Since the variables 
defining record parameters are included 
here, it is clear that this offers an excep- 
tionally rich tool in the generation of 
forms, reports, and letters, utilizing ele- 
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ments from the data base. It is this fea- 
ture that makes mail merge and the print- 
ing of personalized letters extremely easy 
from METAFILE. 

Consider a simple example: an array 
variable X(i), where each element is a 
name. A given name is referenced as 
{ X(i)}. On calling EVALUATE, a name is 
displayed. For the case where the X(i) are 
numbers, if {X(2) * X(3) - X(4)} is en- 
tered in text, on calling the EVALUATE 
command, the substitutions are made and 
the formula evaluated. 

As with many things, there is a price 
to pay. The METAFILE editor counts 
characters in the unevaluated mode. 
Thus, if {A} (containing on evaluation 
“Mr. Jones’’) is within the wordwrap mar- 
gin in the unevaluated mode but extends 
beyond it on evaluation, wordwrap does 
not occur; on printing the string, “‘Mr. 
Jones” will extend beyond the wordwrap 
margin. However, the failure to correctly 
determine the character count on the 
unevaluated { } has more serious conse- 
quences for embedding printer controls in 
text, which may be required since META- 
FILE’s current printer support is rather 
minimal. 

The command to embed a control is 
{Code (#)}, where # is the decimal value 
of a number in the print control sequence. 
Here the embedded format dominates in 
the determination of the column number 
for wordwrap, and it will always occur 
before the evaluated location. You are 
also offered the option of implementing 
printer control codes by text formatting; 
the format is: “%#CONTROL formula” 
where formula is as above without the 
{ }. This will not affect wordwrap, but it 
does not allow in text embedded controls. 

It does not require too much imagi- 
nation to see that it is possible to produce 
formatted spreadsheets using the { } 


Maximum Soriber of ences. in a filename 
Maximum number of characters in a file type 
Maximum length of a record (characters) 
. Maximum number of records in a file 
Ma mum size of a text (approx. pages) 
: Maximum length ofa text line (characters) 
-Maximum length of an item. (characters) 
_ Maximum precision of a number (digits) 
Double quote (’’) not allowed in record item. 
. Backslash (\) not allowed in text line. 
_ File and item names may ¢ contain only alpha numeric 
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utility. It is not a substitute for a true 
spreadsheet, since to change the value of 
a variable requires that the METAFILE 
“SET” command be used (equivalent to 
BASIC’s LET VARX = xxx), but it does 
offer a very useful tool. 


METAFILE’s procedures for creating 
menus are particularly easy to implement. 
This is done by using [ ]’s to contain 
METAFILE commands or the names of 
executable METAFILE procedures as the 
options in the menu. An active text, with 
these choices enclosed within [ ]’s, is the 
basis for user-defined menus. 


The menu and its options are for- 
matted within the EDIT mode under a 
user-selectable filename with type MEN. 
A METAFILE procedure of the same 
filename but of type PRO is written (the 
manual lists the procedure; it is a mere 
seven short lines). The menu is called 
from a command line by typing in its 
filename. Under control of this program, 
the cursor keys control movement be- 
tween options. Return selects an option, 
and when it is concluded the menu is 
presented again for further selection; 
pressing the Esc key concludes the menu 
session. 


The options, as noted, can include 
METAFILE procedures so that the menu 
allows selection of user-written proce- 
dures to accomplish specified tasks. Since 
METAFILE allows a procedure to call 
others as subprocedures, it is clear that 
the language offers powerful capabilities 
for user definition and employment. 


System Parameters 


METAFILE has the implementation 
limitations listed in Table I (below) 
METAFILE admits three types of data 
elements: character (C), numeric (N), and 
data (D), with implementation restric- 
tions noted in the table. 


In addition to restrictions on imple- 
mentation, another very important aspect 
of any data base is its operational perfor- 
mance in interrogating files. How long 
does it take to sort a file of 10,000 
records on a single key? With qualifica- 
tions? And so forth. Unfortunately, these 
questions are not addressed in the manual, 
and this reviewer has certainly not had 
the time to create such a base and test its 
performance. METAFILE, however, is 
not unigue in failing to address these 
problems in its documentation. 


It is not really meaningful to carry 
out a test on a small data base since it 
does not yield meaningful results for the 
potential user with a data base of sig- 
nificant proportions. This aspect poses a 
serious problem for any prospective user 
of any data base program, and it is not 
one that has been appropriately addressed. 
This is an area that calls for clarification 
for all such programs. 
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Installation 


The package contains three Reference 
Guides, an Installation Guide, a “Config- 
uration Device,’ and two double-sided, 
double-density disks. The program disk 
has 317,440 bytes of operational files, 
and the demo disk has 284,672 bytes of 
files. The program disk is so packed that 
if you are operating under DOS 1.1 you 
cannot get any DOS system files on it. 
Under DOS 2.0 you can just barely make 
a bootable disk with the system files, but 
when you go to enter your printer con- 
figuration (even as small a file as that), 
you obtain a “‘disk full” message. 


Thus, for practical purposes a sepa- 
rate disk to boot the system is required, 
and you can then include such useful util- 
ities as a clock calendar (whose input 
METAFILE automatically accepts); Pro- 
Key, which works quite well; and a RAM 
disk, which is quite useful. In exploring 
METAFILE, I used a boot disk formatted 
as indicated above, with an autoexec.bat 
file that, among other things, copied the 
program files in drive b: to the RAM disk 
(after a prompt to install in drive b: a 
disk with program files). I then put a data 
disk in drive b: (again on prompt) and 
was Set to go. 


METAFILE is copy protected via 
hardware. The disks per se are not pro- 
tected, but to utilize them effectively you 
must connect the METAFILE “Config- 
uration Device” to the COM 1 serial port. 
This device is a short cable having female 
and male connectors with a “‘black box” 
in between. The connector choices allow 
you to reconnect your modem (or any 
other device that may have been using 
the port) onto the cable and operate 
normally. 


I tried my modem in that configura- 
tion and it worked without problems. 
Without the special cable connection, 
METAFILE can function but with only 
minimal memory (about 12 percent of 
System capability) and as such is useful 
only for demonstration. The device oper- 
ates to restrict the system disk or its 
copies to a single machine for full utiliza- 
tion. There are the usual warranties to 
replace either the system disk or the 
“Configuration Device” within 90 days if 
either malfunctions. 


Since METAFILE will operate with 
128K RAM and the program files take up 
almost 320K, it is clear that many calls 
are going to be made to the program disk. 
If you do not have a hard disk, operating 
from a floppy can be rather slow; you 
could, however, use a RAM disk, which 
will afford some increase of speed even 
with a hard disk. METAFILE’s instruc- 
tions must be followed very closely for 
operation with a RAM disk. To operate 
with RAM, METAFILE is called from 
DOS with the command: metafile , mem- 
ory:xxxK, where xxx is the amount of 


memory being reserved for METAFILE in 
units of 1000. 

Since METAFILE’s capabilities and 
Capacities are affected by the amount of 
memory available (delineated for the user 
in a table in the Installation Guide), 
reasonable care should be exercised in 
utilizing a RAM disk. Since at least 320K 
is needed for the RAM disk, a user con- 
templating that approach should, by and 
large, have a totally configured system 
with respect to memory. Of course if you 
operate from a hard disk, you have more 
options available. 

In any event, METAFILE demon- 
strates some peculiarities with respect to 
RAM disks. I use two different programs. 
One utilizes the RAM disk driver con- 
tained in DOS 2.0, modified for higher 
capacity, and the other is Tall Trees’ 
JFORMAT. METAFILE seems to accept 
the former with great tolerance, behav- 
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ing well even when I forget to call it as 
indicated above. On the other hand, with 
JFORMAT, unless it is called in precisely 
the specified format, the system hangs up; 
if called correctly, it performs flawlessly. 

There is one operational oddity, at 
least in the system I have, that is inde- 
pendent of the use of RAM disks or of 
any other peripheral hardware or soft- 
ware. After once calling METAFILE and 
closing a session to return to DOS, the 
DOS underlined blinking cursor is lost 
and does not return until the system is 
rebooted (warm does it OK); otherwise, 
DOS performs normally. I must admit 
that loss is a little disconcerting, but it is 
not disfunctional. 


Documentation 

The Installation Guide tells you how 
to use the demonstration facility (the 
demo disk). I find demos hard to evalu- 
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ate. It is my belief the reasonably edu- 
cated user is probably going to have more 
difficulty than a novice, principally be- 
cause he or she just does not follow them 
with sufficient attention. On occasion I 
have asked my children or my wife to 
react to a demo disk of some program, 
and they have invariably been more satis- 
fied with it than J was. 

With that caveat, I was not overly 
impressed with the demo disk. It did 
introduce you to the various aspects of 
what the system can do, asked you to 
create some records, to enter some text, 
to correct it, to print it, to do some finds 
and replaces, to sort a file, etc. But I do 
not really believe that someone who does 
not have some understanding of what 
files, records, and fields mean can really 
use the demo and get very much out of it. 

METAFILE is supported by three 
separate reference documents: spiral 
bound, 8.5 x 11 inches in size, with heavy 
paper covers. 

Volumes 1 and 2 are labelled as 
User’s Guides. Volume 1 is dedicated to 
A. Word/Text Processing and B. Record 
Management; Volume 2 to C. Introduc- 
tion to Programming, D. Applications 
Design, and E. Glossary/Index. Volume 3, 
about twice the thickness of either 1 or 2, 
is labelled Reference Manual. These 
manuals have many faults. One of the 
most nettlesome is that they are ‘‘dirty.” 
I found after using them even briefly that 
my work area was full of lint generated 
by the manuals and I was constantly 
vacuuming it. 

The manuals are by far the weakest 
part of the package and do not, in fact, 
do it justice. Operationally, they are not 
organized for ready reference: there are 
no index tabs to allow quick selection of 
text sections, and while there are tables 
of contents for each of the major subject 
areas, the indexes are associated only 
with the glossary and with the Reference 
Manual. The latter two indexes are rea- 
sonably well presented, each organized 
alphabetically with a description and a 
page reference for each item, but there is 
a fair degree of redundancy as well as 
missing items. Included with the refer- 
ence documents are a METAFILE User 
Reference Card (8.5 x 3.5-inch folder) 
and a Function Key Specification card of 
the same dimension. 

It is very cumbersome, particularly 
when finding your way through a new 
and rather complicated package, to have 
to shuffle three separate documents, 
none particularly well designed for refer- 
ence. The vendors do indicate that new 
documentation and a new format (the 
IBM notebook and slipcase style) is in 
preparation for future release. It is sorely 
needed. 

The first two User’s Guides are 
hands-on tutorials. Volume 1 takes you 
through a subset of the capabilities of the 


word processor and includes a tutorial on 
record management using a hypothetical 
personnel office as a case study. Volume 
2 includes a tutorial on the programming 
facilities of METAFILE, again using a 
case study based on a set of employee 
records, and a final set of case studies 
dealing with the use of advanced com- 
mands and facilities, application guide- 
lines, prototyping techniques, testing, 
debugging, and documentation. 


The last three tutorials contain many 
useful examples and METAFILE pro- 
grams that can be employed by the user, 
demonstrating such diverse aspects as 
mail merge, label addressing, form letter 
preparation, report documentation, and 
‘converting’ documents to METAFILE 
from foreign formats. The conversion 
presented is for record formats only, and 
I was unable to find any discussion deal- 
ing with the “importation” of text files. 
Some experimentation indicated that the 
METAFILE editor will accept only the 
purest of ASCII text files. Since a refor- 
mat capability is not included, the ability 
to import text files is relatively moot. 


Displaying the hierarchy of a com- 
mand structure, particularly with a pro- 
gram so richly structured as METAFILE, 
in a readily comprehensible fashion is 
important. This is an area where the 
documentation is also quite weak. Al- 
though the structure is presented, it is not 
done systematically nor in a way that 
gives an overall perspective; as a result, it 
is not useful for orientation or reference. 
The user is unable to discern the relation- 
ships between various units without an 
undue and uncalled for effort on his or 
her part. A tree diagram would have been 
most useful. 


Printer Support 


A few comments on printer support 
are in order. The documentation states 
that the IBM Epson is supported and it 
means just that: the bare-bones Epson 
without Graftrax. This is not made very 
clear, and certain printer commands indi- 
cated in the manuals are not realizable 
with any Epson other than the bare- 
bones IBM. It turns out that it is possible 
to embed printer controls in text, as well 
as in other formats, due to the enormous 
capabilities of the program, but it is al- 
most impossible to discern from the 
manuals how to do this. I had to resort 
to the vendor for information. 

Sensor-Based Systems is very respon- 
sive to requests for assistance and was 
able to head me in the right direction. As 
a result, I found it possible to utilize the 
full text print capabilities of the Epson 
MX 100 (and, I would judge, any other 
printer) since decimal sequences can be 
sent to the printer from within text files 
(with care, as noted above) or from for- 
matting commands. Printer support is cer- 


tainly one of the weakest operational 
aspects of the program. 

Any serious user of METAFILE in 
substantive proportions will almost cer- 
tainly need print spool capabilities. A 
print spooler is not included, and given 
the memory requirements of METAFILE, 
the most efficient way to obtain that 
would be with a stand-alone spooler. 


Use of the Keyboard 


Although a card indicates the META- 
FILE function key specifications, the 
word “function” is used operationally. 
The IBM function keypad is not used at 
all. In addition to a reasonably standard 
use of the cursor pad, 16 METAFILE- 
dedicated commands are effected by 
Ctrl-letter combinations. Included in the 
16 are two cursor-control commands. 

Some of the letters in the Ctrl-letter 
combinations have a relation to the com- 
mand but many do not; it seems to mea 
significant improvement would be to 
assign to the function keys their related 
combinations. In fact, I reassigned them 
with ProKey so that they coincided, inso- 
far as possible, with similar assignments I 
use on other programs (one of the great 
advantages of products like ProKey is 
cross-program standardization). When I 
commented to the vendors on their 
failure to use the function keys, their 
response indicated that future releases 
would include a built-in macro facility 
that would allow the user that option, 
among others. This would be an enor- 
mous enhancement indeed. 


METAFILE Programming Language 
METAFILE’s programming language 
encompasses a wide range of capabilities. 
It is primarily a nonprocedural language, 
although it contains a significant number 
of procedural commands. In the latter 
respect, it is structurally similar to BASIC, 
though the COMMAND names are dif- 
ferent. In METAFILE, the command 
WRITE 5%*45 will yield 225, just as in 
BASIC; PRINT 5*45 will do the same. 


METAFILE procedures (programs) 
are identified by the file type (extension) 
PRO, just as BASIC programs are identi- 
fied by the extension BAS, and as in 
interpreted BASIC, they can be run from 
the editor. All METAFILE commands 
must be entered in upper case, which 
given the IBM’s lack of a CAPS LOCK 
indicator is somewhat of a nuisance. 


An appreciation of METAFILE’s 
capability can only be obtained by work- 
ing with it, but it seems reasonable at 
least to list the classes of commands 
available and their functions (see Table II, 
page 83). Brief explanatory comments are 
noted in some cases. 


Variables can be named and multi- 
dimensional subscripting is allowed as 
long as the total length of a data element 
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is less than 235 characters. Variables are 
initialized by the command SET (with 
multiple initialization on one line al- 
lowed) and undefined with the command 
UNSET. Output is routed to SCREEN, 
PRINTER, or TEXT by use of the DEST 
command; default is SCREEN. 

It seems useful to list the memory- 
dependent capacities of METAFILE as 
given in the Guide to Operations, since 
system performance is dependent on it. 
See Table III (page 83). 


Summary 


METAFILE is an excellent data base 
manager (record management, in META- 
FILE’s lexicon) that utilizes a relational 
format. Each data record file has a data 
description specifying the attributes of 
the file and the items in its records. These 
are submitted in response to a command 
called DESCRIBE. Each item is capable 
of quite extensive description, including a 
comment line. Five files may be activated 
simultaneously. 


Records may be updated, descrip- 
tions changed, new records inserted, and 
old ones deleted. Changes may be per- 
manent or temporary, and the files may 
be searched and sorted with flexible 
querying commands. Fast lookup is 
implemented by a KEYING command. 
Columnar reports are produced with a 
LIST command and a row format with a 
ROW command. ITEMIZE will produce 
qualified records having non-null values. 


The FORMAT commands allow ex- 
tensive text management and preparation 
facilities, and flexible form and report 
generation is quite accessible. The ability 
to write METAFILE procedures to incor- 
porate user-defined command sequences 
makes it possible to produce a combina- 
tion of menus and procedures to permit 
System use by relatively inexperienced 
operators. 


METAFILE goes well beyond data 
base management and word processing. 
The support from its programming lan- 
guage and the tight integration of the 
system offer the user enormous flexibility 
and suggest many interesting uses beyond 
those usually encompassed within those 
terms. If METAFILE gains acceptance in 
the user community, I would expect to 
see significant offerings of applications 
programs utilizing its facilities. 


I am sure we have all heard the state- 
ment from high-level management: ‘“‘I 
want to be able to press a button and see 
the status of XYZ.’’ This is literally real- 
izable with METAFILE. It is very easy to 
envisage writing a procedure with minimal 
prompts (whose implementation META- 
FILE makes easy) to load the appropriate 
file(s) and display the appropriate vari- 
ables. Alternatively, the display could be 
done from the editor, exhibiting data 
variables within { } whose evaluation is 
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accessed by hitting the Evaluation key. 
METAFILE allows scrolling (using the 
Tab key) through the variable sequence. 
The existence of a macro facility would 
enhance this even further. 

LOOKASIDE makes a user’s “cal- 
endar’’. readily available for viewing or 
for updating without leaving the current 
work session. The enterprising pro- 
grammer will, I am reasonably sure, come 
up with additional applications. The only 
aspect really lacking is a graphics capabil- 
ity; the lack of this capability is certainly 
not an oversight since METAFILE is 
records and text oriented, not number 
oriented, though it does more than a 
creditable job in that area. 

The integration achieved in META- 
FILE and the ease both of utilizing the 
facilities in the editor and of transferring 
data, accompanied by the capabilities of 
the ASSISTANT and the LOOKASIDE 
facility, certainly make this a strong com- 
petitor in the integrated program sweep- 
stakes. All this without the need of a hard 
disk, a mouse, or an enormous memory 
capability. 

METAFILE’s manners are impec- 
cable. The prompts are to the point and 
understandable. Its error handling facil- 
ities are clean and clear as to correction. 
As noted, the only hang up that occurred 


was when basic operational instructions 
were not faithfully followed. The only 
real quirk was that relating to the disap- 
pearance of the DOS cursor after leaving 
a session. 

The more I have used METAFILE in 
the process of preparing this review, the 
more J have been impressed both by its 
capabilities and by its depth. Alas, I have 
also been more and more depressed by 
the poor documentation and the failure 
of the implementation to utilize the IBM 
PC screen and keyboard features and to 
respond to its weaknesses (here I am 
referring to the lack of any flags for 
CAPS LOCK or NUM LOCK status and 
the concomitant requirement of COM- 
MAND entry in upper case). 

By using the term “depth,” I imply 
that the user will continually find the 
program opening up new opportunities 
for application and use. When I initially 
ascertained the price of the package and 
of the major updates, I was somewhat 
taken aback. After exploring its poten- 
tial, and considering the price of other 
DBM systems currently in the market 
place, I am not as taken aback as I was. 
I would expect, however, that a program 
as costly as this would not be as lax in 
dealing with details of screen and key- 
board usage nor exhibit the deficiency of 


printer support. The question of perfor- 
mance speed in the crucial area of data 
base application is just not answerable in 
the context of a single review. 

This is not, in my opinion, a pro- 
gram for the novice, publicity claims not- 
withstanding. It may be true that the 
novice could do a few trivial things right 
off, so to speak, but to really utilize the 
capabilities of this program, users must 
take the time and effort to learn some- 
thing about it. I believe they will be re- 
warded for that effort. To be able to 
effectively utilize the program’s resources 
will require some programming skills, 
again claims to the contrary notwith- 
standing. 

What do I conclude? If the new re- 
leases contain a significant improvement 
in documentation, more responsiveness to 
the IBM’s screen and keyboard features 
(with due respect for strengths and weak- 
nesses therein), and enhanced printer 
support, the METAFILE must be seri- 
ously considered by those requiring an 
effective data base and management sup- 
port system. 
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Now, a library of Numerical Methods 
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SWIG: 


SOFTWARE WRITERS INTERNATIONAL GUILD 


- SCHEDULED 
SWIG ACTIVITIES & 
MEMBERSHIP BENEFITS 


(1) $10,000 PROGRAMMING 
CONTEST (Members only) 


(2) NATIONAL COMPUTER 
WEEK (May 11-May 20, 
1984) 


(3) ANNUAL CONFERENCE 
AND SOFTWARE AWARDS 
CEREMONY (During 
National Computer Week) 


(4) CONSULTANT REGISTRY 
(With computer store refer- 
ral system for customized 
software) 


(5) JOB PLACEMENT SER. 
VICE (Free to individual 
members, fixed maximum 
fee to companies) 


(6) FREE SEMINARS & 
MEETINGS LOCALLY 


(7) SOFTWARE LIBRARY 
LENDING & EXCHANGE 
SERVICE (Professional 
quality assemblers, 
utilities, games, etc.) 


(8) SOFTWARE LOCATION 
SERVICE (For companies 
& individuals-if it exists, 
SWIG will find it. If not, 
see #9) 


(9) SOFTWARE DEVELOP. 
MENT SERVICE (From 
novice to scientist, SWIG 
members can work on any 
project-from applications 
to games to R&D) 


(10) LEGAL SERVICE 


(11) AGENT (SWIG can 
represent you in sales to 
software publishers) 

(12) 24 HOUR - 7 DAY BULLE- 
TIN BOARD SYSTEM 


(BBS) ACCESSIBLE BY 
COMPUTER FREE 


(13) AND MORE!!!! 


THE LARGEST PAID MEMBERSHIP PROGRAMMERS GUILD - 
OVER 5,000 MEMBERS WORLDWIDE!! 


MEMBERSHIP APPLICATION FOR 
SOFTWARE WRITERS INTERNATIONAL GUILD 


NAME 








ADDRESS 
CITY | — STATE ZIP 








PHONE #( ). 


© CLASSIFICATION: 
tL) NOVICE (] BEGINNER TO ADVANCED 
(J ADVANCED WITH ON THE JOB EXPERIENCE [] RESEARCH/SCIENTIST 


® WHAT EQUIPMENT DO YOU HAVE EXPERIENCE WITH &/OR ACCESS TO &/OR 
PLAN TO BUY? 


L] MAINFRAME L] MINI (} MICRO L] DESIGN/R&D 
BRAND NAME(S): LL) IBM [] XEROX LJ “APPLE Dees 

(] COMMODORE (J RADIO SHACK LL) ATARI (] OSBORNE 
(J TIMEX/SINCLAIR L] NORTH STAR L) HEWLETT PACKARD 
LJ OTHER 





© AREAS OF INTEREST: 


(J) DATA PROCESSING (| BUSINESS APPLICATIONS LJ GRAPHICS 
CL) LEGAL L) VOICE (] MEDICAL L] APPLIANCE (HOME) CONTROL 
(J ROBOTICS L]) GAMES (] MUSIC CL) R&D L) Oa ® 


© MEMBERSHIP ACTIVITIES AND SERVICES OF INTEREST: 
READ THE LIST ON THE LEFT AND CIRCLE THE NUMBERS BELOW THAT APPLY. 
1 2 3 4 5 6 f 8 9 10 11 12 


\] | HAVE ENCLOSED $20 ANNUAL MEMBERSHIP FEE L) CK L} MO 
(MAKE CHECK PAYABLE TO: SWIG) 


RETURN TO: SWIG 
P.O. BOX 87 
STONY POINT, NEW YORK 10980 
(914) 354-5585 


SWIG© SOFTWARE WRITERS INTERNATIONAL GUILD 


Circle no. 58 on reader service card. 





16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 








More on MS-DOS EXEC Function 


Morton F. Kaplon, of Pomona, NY, 
writes: “I read with some interest your 
article in the December 1983 issue of 
DDJ....1 certainly do agree with you 
that the documentation on the DOS func- 
tion 4BH is less than transparent, though 
my prize for opacity in DOS is still easily 
won by Chapter 13, ‘Using Extended 
Screen and Keyboard Control.’ 

‘In any event, my approach was some- 
what different than yours and the program 
I had created offers a somewhat more 
extensive demonstration of the utility of 
that call. It allows the user to enter from 
the program anything which can be en- 
tered from the command line, albeit in 
two steps if there is a tail to the command 
line. 

“Given this program, I believe it is 
fairly easy to see how one can construct 
a ‘DOS MANAGER’ for the user who 
wants to be prompted through DOS.” 
Morton was kind enough to provide his 
program on a diskette, and we are printing 
a slightly modified version of it in Listing 
One (page 88). 


PC-DOS Manual Typo 


PC-DOS 2.0’s manual contains a small 
typographical error in Chapter 13 which 
may confuse programmers who are at- 
tempting to use the Extended Screen Con- 
trol. The command for ‘‘Erase in Line” 
(usually known as Clear to End of Line) 
is “ESC [ K”, not “ESC [ k’’ as given in 
the text. 


IBM PC Junior 


We have now received a PC Junior to 
play with and are making many interesting 
discoveries. The graphics support on the 
Junior is considerably enhanced over the 
standard IBM PC, with programmable 
palettes and the ability to display sixteen 
colors in medium-resolution graphics 
mode or four colors in high-resolution 
mode. 

One issue that has been completely 
ignored in the popular magazines is the raw 
performance of the Junior. Apparently, 
everyone assumes that because it uses a 
8088 microprocessor at 4.77 MHz, it will 
execute programs at a speed comparable to 
a normal PC. Well, friends, it just ain’t so. 
just ain’t so. 

The PC Junior does not have dual 
ported memory for the video refresh buf- 


fer. Consequently, the video controller 
must “‘steal cycles” from the CPU while it 
is updating the screen. It turns out that 
two out of three memory cycles for the 
main machine RAM are allocated to the 
6845 controller, and only one out of three 
for the 8088. Running several standard 
benchmarks, I found that the execution 
speed of a computation-bound program 
on the Junior is exactly 45% of its speed 
on a normal PC. Programs which perform 
a great deal of screen I/O appear to suffer 
even more, though I haven’t measured this 
exactly yet. 

The literature on the Junior leads one 
to believe that programs executing out of 
a ROM cartridge will execute much faster, 
since the video controller will not be ac- 
cessing that memory. I’ll check this out 
and provide more information next 
month. 

The performance of PC-DOS 2.1, 
which is provided with the Junior, has also 
been degraded. Apparently the disk drives 
provided on the Junior have much longer 
seek and head settle times, so the BIOS 
disk driver’s delay factors have been 
lengthened accordingly. Access to files by 
a disk-based program is painfully slow — 
just the process of opening a file seems to 
take over a second. 


MS-DOS Volume Labels 


I had surmised from reading the MS- 
DOS 2.0 manual that I could change the 
volume label on a disk by simply per- 
forming a search with an extended file- 
control-block for the first directory entry 
with a “volume” attribute byte, requesting 
a ‘“‘delete” on any filename found in that 
manner, then requesting a “create” func- 
tion with the new name. However, this 
path is fraught with peril. The delete 
appears to work OK and returns a suc- 
cessful status code, but it clobbers the file 
allocation table unmercifully (see Figures 
1 and 2, page 87). 

I was unable to figure out exactly 
what was going on here. Examining a 
dump of the FAT and directory sectors, 
it is readily seen that a volume label is 
simply a normal appearing directory entry 
with the attribute byte set to 8, date and 
time fields filled in, and the “starting 
cluster” and “file size’ fields zeroed. 
Except for the attribute byte, this is just 
the same as a directory entry for a file 
that was created but never had any data 
written into it; however, a delete of such 
an empty file works fine. Evidently, 


finding the volume attribute bit turned on 
during a delete function sidetracks PC- 
DOS into some nutty logic or other. 

By experimentation, I found that the 
following sequence will safely add or 
change a volume label under PC-DOS or 
MS-DOS 2.0: 


1. Set the disk transfer address to a scratch 
buffer 128 bytes long. 


2. Using an extended file control block 
with the format shown in Listing Two 
(page 92), perform a “‘search for first”’ 
function (#17). If the register AL is 
returned as OFFH, then the disk has 
no label — go to step 5. 


3. If function 17 returned register AL = 
zero, the buffer contains a simulated 
extended file control block with the 
volume name in bytes 8-19. Move your 
new volume name (11 characters) to 
buffer + 24. 


4. Passing the address of the scratch buf- 
fer in registers DS:DX, request a “re- 
name” function (#23). If AL returns 
00, the volume name was successfully 
modified and you are finished, other- 
wise something is horribly wrong with 
your system. 


5. (Come here if the disk has no previous 
label.) Replace the wild-card characters 
shown in the extended file control 
block with the desired 11-character 
volume name. Passing the address of 
the extended fcb in DS:DX, request 
a PC-DOS “‘create”’ function (#22). AL 
returned as 0 implies success; AL re- 
turned as OFFH means failure (usually | 
due to a full directory). 


I have provided an extract of the final 
working program as Listing Two (page 
92) to get you started. Interestingly, this 
procedure always adds the volume label 
to the root directory no matter what your 
“current” subdirectory is. 

I made another surprising discovery. 
Even though volume names were added in 
MS-DOS 2.0, the new version 2.0 ex- 
tended file and record handling functions 
don’t support adding or changing the 
volume labels. When I first tried this, I 
thought that I could probably use the new 
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CREAT call (3CH) and then use function 
43H (CHMOD) to set the attribute on the 
new file to “volume”; however, the 
CHMOD call always returns an “access 
denied’ error code. 


Finding Size of TPA 
under MS-DOS 2.0 


On the IBM PC, the Wang Profes- 
sional Computer and presumably most 
other MS-DOS machines, there isa special 
BIOS call or some other method to get the 
amount of machine memory. Although it 
would be nice if RAM size could be ob- 
tained in a machine-independent way, 
there is no obvious MS-DOS function call 
that will do the trick. However, it can be 
done, although circuitously! 

_ The method hinges on the “Modify 
Memory Allocation’’ call, MS-DOS func- 
tion 4AH. It is defined as follows in the 
MS-DOS manual: “on entry, ES contains 
the segment of the block, BX contains the 
new requested block size in paragraphs. 
DOS will attempt to ‘shrink’ or ‘grow’ the 
specified block. If the call fails on a grow 
request, then on return BX contains the 
maximum block size possible... ..” 

Knowing that part of the MS-DOS 
procedure for loading an application pro- 
gram includes allocating a memory block 
to it, we can simply request an increase of 
our program’s area to the maximum pos- 
sible, inspect the amount of RAM that is 
actually given to us, and then add that:'to 
the segment address our program is based 
at in order to find the actual size of 
machine memory. See Listing Three (page 
93) for an example subroutine that returns 
RAM size in Kbytes. 


CP/M Discrepancies 

While porting a program that per- 
formed ramdom file I/O from CP/M-86 
to CP/M-68K, I discovered that they are 
not quite symmetric with respect to file 
control block structure. Specifically, bytes 
31-34 (r0, rl, r2) have different meanings 
under the two operating systems (see Fig- 
ure 3, at right). This was obviously done 
so that the lower 16 bits of the random 
record number would fall on a word 
boundary for the 68000, since 16-bit 
accesses on off addresses are verboten. 
However, it would have been nice if DRI 
had printed a warning about this in the 
manual somewhere. 


BB 


(Listings begin on page 88) 
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16-Bit Toolbox (Text begins on page 86) 
Listing One 


name docom 
title 'DOCOM - Load and execute programs’ 
page pa be ne OO SF 
DO-COM.ASM --- Load and execute COM programs 


demonstrates use of PC-DOS function 4BH 
Morton F. Kaplan, 11 White Birch Drive, Pomona, NY 19979 


Definition of Function 4BH call: 
DS:DX points to ASCIIZ filespec 
ES:BX points to parameter block for load 
Al; = Eunction. type: 
9 is load and execute. Program must save registers 
and must restore SS and SP. 
3 is load only (may be used for overlays) 
Parameter Block 
AL= @: Word segment address of environment string to be passed,@ value 
for address will cause parent's environment to be inherited 
DWORD pointer to command line to be placed at PSP+8O@h 
DWORD pointer to default FCB to be passed at PSP+5ch 
DWORD pointer to default FCB to be passed at PSP+6ch 


AL= 3: WORD segment address where file will be loaded 
WORD relocation factor to be applied to the image. 


=e me SO MO TO MO TO me @6 WO WE Be WE WE =e we VO WE WHE WHE VO We 


In this program, the filespec has to contain the filename and extension, 
a path may also be included. Thus, to load and execute the program 
testmac.com on b: from drive a:, do as follows: 


A>docom 

Enter filespec to be loaded and run (this prompt appears on screen) 
>b:testmac.com<enter> 

Enter command tail, if none then <enter> (this prompt appears on screen) 
> 


=e we BO TO WOH TWO NO VE =e 6 


Program then executes. 


Build this program from file DOCOM.ASM as follows: 
MASM DOCOM,DOCOM,DOCOM,DOCOM 

LINK DOCOM,DOCOM,,, 

EXE2BIN DOCOM.EXE DOCOM.COM 

ERASE DOCOM. EXE 


me Se TO BVO WOE WH WE =e 6 


define necessary MACROS 


dos macro fn -fn is dos function to be called 
mov ah,fn -fn passed to ah 
int 210 dos interrupt 
endm send of macro 

kb in macro chr typed at KB returned in al 
dos 1 *function l 
endm 
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erilt macro 
mov d1,19 ;line feed 
dos 2 
mov ag1,13 ;Carriage return 
dos 2 
endm 
cue macro ;perform CR-LF sequence 
crif ;then display CUE mark 
mov a1. 
dos 2 
endm 
bfr_kbin macro bfr addr ;buffered keyboard input 
mov dx,offset bfr addr 7;dxX points to input buffer 
dos Yah oh ;dos function call 
endm ,end of macro 
print_string macro bfr locn *;Print string at bfr locn 
mov dx,offset bfr_locn ,;point dx 
dos 9 ;function call 9 of dos 
endm 7end of macro 


, END of Macro definitions 


codeseg segment para (Continued on next page) 


a a aan eg ee ee ee 


A Professional Quality Z80/8080 Disassembler 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED 2Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 









C Programmers: 


Program three times faster 
with Instant-C™ 


Instant-C™ makes programming three or more times 
faster by eliminating the time wasted by traditional 
compilers. Many repetitive programming tasks are 
automated to make programming less frustrating 
and tedious. 


e Two seconds elapsed time from completion of 
editing to execution. 


e Full-screen editor integrated with compiler; 
compile errors set cursor to trouble spot. 


e Editor available any time during session. 
Symbolic debugging; single step by statement. 


Automatic recompilation when needed. Never a 
mismatch between source and object code. 


Directly generates .COM, .EXE, or .CMD files. 
Follows K & R—works with existing source. 
Single, integrated package. 

e Works under PC-DOS*, MS-DOS*, CP/M-86*. 


More productivity, less frustration, better programs. 
Instant-C™ is $500. Call or write for more information. 


° (617) 653-6194 
Rational P.O. Box 480 
Systems, Inc. Natick, Mass. 01760 


*[Trademarks: PC-DOS (IBM), MS-DOS (Microsoft), CP/M-86 (Digital Research. Inc.) 
Instant-C (Rational/Systems, Inc.)] 

















A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M’* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 



































































“CP/M is a Trademark of Digital Resaerch, Inc. 


Circle no. 51 on reader service card. 
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nnn ESSE 


1 6-Bit Toolbox (Listing Continued, text begins on page 86) 
Listing One | 


assume cs:codeseg,ds:codeseg,es:codeseg 


org 10Gh srequired for COM 
start: jmp docom >jump over data section 
errorl db "Memory Shrink Faiiure’,'s° 
error2 db 'Error in Loading Program','$' 
prompt @ db ‘enter filespec to be loaded and run ','$' 
prompt 1 db 'rnter command tail, if none then <enter> ea Se 
stk ptr dw Q fie | ;save contents of SP 
stk seg dw Q ssave contents of SS 


* PARAMETER BLOCK 


tf 
parm_blk dw Q -segment address of environment 
v 
sstring passed,use parent 
spointer to command line at 
dw offset psp8@+tl ; at psp+8@h, +1 needed 
dw . sto allow for structure of 
spsp88 using buffered 
sinput from keyboard 
v 
dw offset fcbl spointer to default FCB1 at pspt5ch 
dw . 
dw offset fcb2 spointer to default FCB2 at pspté6ch 
dw ? 
*DATA FOR PARAMETER BLOCK 
tf 
sbuffer of 2@ char for buffered 
sline input, can be increased 
filespec db 20,2?,28 dup (7?) 
psp8a@ db 32,?,32 dup (?) ;32 chars in buffer,increasable 
fcbl db iL *drive id 
db Ts eee *filename and extension 
db 25: dup. (9) srest of fcb 
fcb2 db i: *drive id 
db 1) aaupt! eS") *filename and extension 
db 25 dup(@) erest of fcb 
docom: sstart of effective code 
push cs sinitialize DS and ES 
pop ds 
push cs 
pop es sinitialization finished 
mov bx,5@ ssave 50*16 bytes for program 
dos G4ah ses already set to code segment 
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CELE 
+c not set ;check for memory shrink 
print_string prompt 9 ;display prompt 
cue 
jmp over erl | 
not set: ;display error message 
a print_string errorl 
mov adx,ax ;print error code in ax 
add qd1,48 ,;convert to ascii 
dos fs ;display on kb 
jmp quit 
Over erl: 
ee bfr_kbin filespec ;get filespec 
crit 
Sub ax,ax ,;Clear to @ 
MOV al,filespect+l ;get length of string input 
mov di,offset filespec+2 
add di,ax ;to end of string 
Mov byte ptr [di],@ ;terminate with g 
print string prompt_l ;prompt for command tail 
cue 
bfr_kbin psp8g@ ;get command tail 
Crit 
sub ax,ax ,;clear to @Q (Continued on next page) 





DeSmet C $109 


PCDOS* — CP/M-86++ — MP/M-86+* — CCP/M-86++ 


© C DEVELOPMENT PACKAGE Ee GRRE geo cee ee eee a nen A ee, ae ae 


C Compiler, Assembler, Linker, and Librarian ° ORDER FORM 
Full Screen Editor — Native 2.0 Support 













Name 
@ COMPLETE IMPLEMENTATION Address 
Everything in K & R (incl. STDIO) 
Small case — 64K code, 64K data /stack 
All 8088 /8087 data types a ee 
Intel assembler mnemonics peal 


a i ee 
OS:C PCDOS OMSDOS oa CP/M-86, MP/M-86, CCP/M-86 
DISKS: 0 8’(3740) 0 5.25” SS (160KB) 0 5.25” DS (320KB) 


stig te eg Oe. EEE See (IBM, ZENITH, NEC, etc.) 


Slo eue SSS eSSeles sce lt set's 225 25 24s h es + 6 os nnn eee a ee 
at ee te ee Se SS SS SSS SSS SS SSS SS eS SS See eee ae ee oO 


@ OUTSTANDING PRICE / 


PERFORMANCE 
Aug. ’83 BYTE “SIEVE” Benchmark 


135 bytes compiled — 6144 bytes linked 


65 sec. compile (fdisk) — 11.5 sec. run (10 iter) Pe PURE 2 cat Paig riog nie 
Manual Only (refunded with ls a $20 
© SUPPORT LIBRARIES 
Both 8087 and Software Floating Point NOE Sosa Sha owes Let datanend $20 
PC Keyboard / Display Sub Total _ 
Trig /Log functions 
California Residents add 6 % Sales Tax 
e UPDATES 


Send To: Cc WA BE 
P.O. Box 710097 
San Jose, CA 95171-0097 
(408) 736-6905 


Sees see ee ee oe ee ew ee ee ae ee 


Updates and Bugs reported in newsletter Total 


No time /number limits 





+Trademark IBM ++ Trademark Digital Research 
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1 6-Bit Toolbox (Listing continued, text begins on page 86) 
Listing One 


mov al,psp8@+1 sget length of string input 
mov di,offset psp8@+2 
add di,ax sto end of string 


sterminate with carriage return 
*and fuld. byte 


mov byte ptr [di],13 
mov byte ptr [ditl],9 
mov cs:stk ptr,sp *save SS and SP in 
mov cs:stk_ seg,ss *variables addressable by Cs 
mov di,offset parm_blk | 
mov [dit4],es *seg address to psp8Jg 
mov [di+8],es sseg address to fcbl 
mov [dit+l2],es *seg address to fcb2 

spoint to parameter block 
mov bx,offset parm_blk 

spoint to ASCIIZ filename 
mov dx,offset filespect2 
mov al,@ *>load and execute 
dos 4bh -dos function to execute program 
mov ss,cs:stk_seg srestore SS:SP pair | 
mov sp,cs:stk_ ptr 
pp ate quit >jump if no load error 
print string error2 ;print error message 

quit: dos — 4ch *back to dos, 


seasiest way to terminate, can also 
spass code back with this call 


codeseg ends : 
end start 7 _ End Listing One 


Listing Two 


mov dx,offset buffer 

mov ah,26 *set disk transfer address 

THe Zin -to scratch area (DS:DX) for 
*dictionary search. 

mov dx,offset xfcb ;DS:DX=addr extended fcb 


mov ah,l/ *"search for first match" 
fAG 4.0 
emp.  al,@ffh >successful? 
je no label sno label on disk, jump. 
jmp label found *label found, jump. 
xficb db Gffh »flag signifying extended fcb 
db 5 dup (@) *reserved (should be zeroes) 
db 8 *volume attribute byte 
db y) *drive code (set by program) 
db i? dup 3622) swild card filename & ext. 
db 25 dup (9) *remainder of fcb (not used) 
buffer db 128° dup ={%) ;buffer for directory search End Listing Two 
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Listing Three 


a 

; Return memory size (Kbytes) in AX. 

; Calling arguments: none. 

eect rovys AX, BX, CX. 

; This routine assumes that ES is pointing 

; to the Program Segment Prefix (true 

7 ON Original entry from MSDOS for either 

, an EXE Or a COM type program) 

7 

ramsize proc near 
mov bx,-l rrequest 65535 paragraphs! 
mov ah,4ah *;MSDOS modify block function 
int 21h ;returns paragraphs available 

yin register BX 

mov ax,cs ;add that to the segment of 
add ax,bx ;the base of our program 
mov cx;,6 ;then shift paragraphs right 
shr ax,cx *Six places to get Kbytes 
ret ;back to caller 

ramsize endp 


a 


The Writer's Really Incredible Text Editor 
lives up to its name! It’s designed for 
creative and report writing and Carefully 
protects your text. Includes many 
features missing from WordStar, such as 
sorted directory listings, fast Scrolling, 
and trial printing to the screen. All editing 
commands are single-letter and easily 
changed. Detailed manual included. 
WRITE is $239.00. 


WORKMAN & ASSOCIATES 


112 Marion Avenue 
Pasadena, CA 91106 
(818) 796-4401 


All US orders are postpaid. We ship from stock on 
many formats, including: 8", Apple, Osborne, KayPro, 
Otrona, Epson, Morrow, Lobo, Zenith, Xerox. Please 
request our new catalog. We welcome COD orders. 
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BUILDING 
c BLOCKS 


Save a year of development. 






0 IBM PC* Building Blocks .....................0...... $149 
Video & IO routines, string functions, asynchronous port 
control, date, time, random numbers, printer control. 

Over 200 functions. 

O Mathematics Library .°....000)0000..0 0 $99 
Logarithms, trigonometric functions, Square root, ran- 

dom numbers. 

© Communications Library ............................ $149 
For Hayes Smartmodem+, modem 7 and xmodem. 

0 B-trees & Virtual Memory Management Library ... $149 
List handling features. , 

0 Advanced Building Blocks ........................... $ 99 
Julian dates, dBasell access, data compression, text windows. 














All Building Blocks use the ‘IBM PC Building Blocks’. 
Credit Cards Accepted. Single User License. 
Multiuser licenses available. (Mass. add 5%) 


NOUUM 
SORGANUM 


Tel: (617) 641-1650 


(TM) Ashton-Tate* 












29 Egerton Road, Arlington, MA 02174 
(TM) IBM* 








(TM) Hayes Microcomputer Productst 
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C/UNIX PROGRAMMER’S NOTEBOOK 


by Anthony Skjellum 








This month’s Notebook includes 
reader response to my December 1983 
column, where I discussed perceived 
deficiencies in the Unix operating system, 
as well as a follow-up discussion on run- 
time libraries and link format incompati- 
bilities. 

It was also my intention to discuss 
two C compilers that support the large 
memory concept on the 8086. But since I 
have yet to receive one of the compilers, 
this comparative review will have to be in- 
cluded in a future column. 

Several more letters have come in 
concerning C layout standards. While we 
don’t have room to include their com- 
ments at present, they will undoubtedly 
lead to several columns on related topics 
of interest. 


Comments about Unix 


In the December column, I mentioned 
several aspects of Unix that I believe 
constitute weaknesses. Tony LiCausi of 
Canoga Park, California, sent me a letter 
with his dissenting opinions. He begins 
by remarking: 


“Unix was designed for the program- 
ming environment, for use by folk already 
familiar with computers. Unnecessary I/O 
slows down a program’s performance and 
hence should be eliminated. Thankfully, 
verbosity is often eliminated in Unix as 
the default option. However, many of the 
programs do have command line switches 
to increase the progress reporting of the 
program.” 


Unix was designed to circumvent the 
flaws of existing operating systems. Under 
Unix, modular programs are coupled via 
pipelines to create a convenient working 
environment and to reduce repetition of 
effort. Furthermore, Unix offers un- 
equalled portability between large and 
small computer systems. Since it is suc- 
cessful in these respects, Unix’s popularity 
is growing; hence, more and more com- 
puter users are gaining access to machines 
that use Unix. Many of these users are 
familiar with computers and programming, 
while others are novices to both com- 
puting and Unix. 


Let’s assume that a user is well versed 
in programming but is new to Unix; 
according to Mr. LiCausi, this user belongs 
to the group of people for whom Unix 
was designed. I’ll assume that the user has 
an application in mind, since the average 
user does not write programs as ends unto 
themselves. To succeed in implementing 


an application, the user must learn about 
various aspects of Unix, including various 
shell commands, system calls, and runtime 
libraries. | 

I submit that this type of user will 
be slowed down significantly by the over- 
all poor quality of the Unix documenta- 
tion. Since examples are typically both 
terse and complicated, the typical user 
could spend an enormous amount of time 
circumventing a single snag. Imagine 
linking the mathematical function library 
as part of a C compilation. Two seemingly 
possible ways for doing this are: 


cc -o test test.c -lm 
Or 
cc -l1m -o test test.c 


It turns out that the former method is 
correct, while the latter produces unde- 
fined function error messages at the linker 
stage. However, the documentation does 


not indicate that the “lm” must be near 


the end of the line. 

Our hypothetical user will also be 
slowed down by the cryptic nature of the 
error messages. True, the more sophisti- 
cated users require little or no prompting, 
and only gentle nudges when they make 
an incorrect entry, but the vast majority 
of users probably don’t belong to this 
category. 

Finally, the user will be slowed down 
by inexplicable and undocumented bugs 
in systems such as troff and eqn, which I 
mentioned before. Furthermore, circum- 
venting bugs requires highly specific 
knowledge, and the solutions, even if 
available, may not be widely known. On 
the Unix machine I use, only a small 
group of people is aware of the proce- 
dure for avoiding some common but an- 
noying bugs in eqn. 

Mr. LiCausi makes a very valid point 
concerning this: 

“Software bugs are not acceptable in 
any form at any time. Unix from Bell 
Labs is sold as unsupported software. 
Their attitude is, ‘OK, we’ll sell it to you, 
but we don’t want to hear from you.’ 
There is no mechanism to report or cor- 
rect bugs at the source. Source code is 
not typically available to the average user. 
Source code is guarded on Unix like gold, 
just like any other commercial software. 
Having done debugging of the {77 com- 
piler on one system, I found access to 
other software (for examples and integra- 
tion) severely limited.” 


Thus, while Mr. LiCausi contends 


that Unix was designed for people with 
programming experience, he sets his 
standard for “unnecessary I/O” and 
“program performance” based on the 
most sophisticated level of Unix user. 
Furthermore, it is still not clear to me 
why the sophisticated users should be 
more willing to stand for poor quality 
documentation and user-unfriendly soft- 
ware than everyday users. Finally, it is not 
at all apparent to me from practical expe- 
rience that “many” of the standard shell 
commands support extended progress re- 
porting. 

Mr. LiCausi goes on to state: 

“The secret society of Unix is partially 
the result of the paranoia of ‘unauthorized 
access.’ The remainder is due to the lack 
of commercial incentive. The incentive 
has obviously increased, as can be evi- 
denced by the proliferation of books and 
articles on Unix and C.”’ 

I stated in my previous column that 
some users perceive Unix as a secret soci- 
ety because they cannot grasp certain 
aspects of its operation based on the writ- 
ten and on-line documentation alone. 
Only through initiated members can the 
knowledge (and undocumented tricks, 
patches, etc.) be obtained. However, 
other popular operating systems do not 
have the same aura as Unix. For example, 
CP/M users are not considered a “‘secret 
society” even though CP/M has nontrivial 
aspects. Nor do minicomputer operating 
systems such as VAX/VMS (DEC) and 
AOS/VS (Data General) have the myste- 
rious quality of Unix. That’s because they 
have much more documentation to 
explain the nitty-gritty of using the 
system. 

Mr. LiCausi finishes by stating: 


‘Unix is not user-unfriendly. Admit- 
tedly it is beginner-hostile. Changes will 
be required to adopt Unix en masse (i.e., 
for the micro), but I hope that it does not 
spell the end of ‘silent’ software.” 


My final counter-remark is that most 
users never become sufficiently sophisti- 
cated in enough diverse aspects of Unix 
to escape the feeling of user-hostility. I 
personally still run into difficulties, even 
though I’ve used Unix for almost four 
years. As soon as I use aspects of Unix 
that are not part of my daily routine, 
‘“‘sottchas” appear. 


Other Points of View 


H. T. Gordon of Berkeley, California, 
sent in a letter concerning Unix. He writes: 
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“It was a pleasure to read the Skjellum 
critique of [Unix] in DDJ No. 86. Since 
C/Unix is becoming the sacred cow of the 
computer Brahmins, few have the courage 
to point out its flaws. It was designed by 
one of the elite, for elite users. To them 
it’s concise and elegant, even ‘obvious.’ 
Only rarely is any explanation needed. 
If it is, a terse one will do. Prophets in- 
spired by the high gods cannot waste 
their time spelling things out for mere 
mortals in words of one syllable.” 


I don’t think that the state of C/Unix 
is as bad as Mr. Gordon suggests. While 
there are problems, I think that Unix has 
many strengths and these strengths will be 
the basis for future operating systems. It 
is the purpose of this column to examine 
strengths and weaknesses of C and Unix, 
and to propose solutions as well as to 
point out the problems. I encourage 
readers to pose solutions to these and 
other problems they encounter. 


Low Level Input-Output in C 
Patrick Cawood of Los Angeles writes: 


“T read with great interest your last 
article on tendencies in Unix to produce 
poor operator interaction programs. I seem 
to have met some of the same in C. 

‘In order to provide a secure operator 
interface, one does not echo a keyboard 
character to the screen until it has been 
examined and approved by the program. 
But getch() function automatically echoes 
— even line feeds, up arrows, etc.! Func- 
tion putch() provides an automatic line 
feed after printing on the screen!” 

He goes on to state: 

“I simply cannot believe that anyone 
would wittingly design these functions 
as they are, or not provide any alternative 
hardware interfaces. Especially consid- 
ering some of the tasks I’ve heard were 
written in C. But perhaps these people 
writing serious software were all forced to 
write their own hardware interfaces.”’ 

The problem that Mr. Cawood is re- 
ferring to exists in a number of non-Unix 
C compilers. To begin with, let’s review 
the problem in the Unix environment. 
Under Unix, putc() and getc() acquire 
and return a single character, respectively. 
To offload the host system, however, 
many terminal interface boards program- 
matically handle the user input-output in 
lines. Thus, before any input is received by 
the host, a whole line must be entered. 
Naturally, the characters are echoed by 
the terminal interface hardware/firmware, 
and only limited line editing i is permitted. 
On output, a whole line is buffered up 
before transmission to the terminal. 

This process can be overcome by use 
of the “raw” terminal mode (raw implies 
no host character processing). In this 
mode, the program is completely respon- 
sible for input-output. This mode is much 
more expensive in terms of input-output 
cost, since the host must handle an inter- 





Dr. Dobb’s Journal, April 1984 











Re-ink any fabric ribbon for 
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rupt for each input character and perform 
an output request for each printed char- 
acter. However, as I mentioned in the pre- 
vious column, this is the only way for a 
program to get full control of what is 
entered and appears on the display device. 

With the introduction of C to micro- 
computers, compiler implementors often 
based the behavior of the runtime libraries 
on their Unix experiences rather than on 
The C Programming Language. Whole 
lines are prebuffered by typical C runtime 
libraries before a single character is re- 
ceived by getc(); conversely, a whole line 
of output is internally buffered before it 
is printed on the display. Thus, the run- 
time libraries of microcomputer C com- 
pilers often emulate the terminal hardware 
found on real Unix systems. 

However, this is not what putc() and 
getc() are supposed to do. In the truest 
sense, raw mode is the fundamental ter- 
minal mode. These functions should 
really work on a character-by-character 
basis. C libraries should permit selection 
between the “raw” and “‘cooked” modes 
(and echo and no-echo modes), thus per- 
mitting input-output flexibility without 
resorting to assembly language routines. 

One C compiler that correctly handles 
low level input-output is the Q/C compiler 
from The Code Works. Single characters, 
for example, are required only when a 
getchar() call is made. While it doesn’t 
seem possible to turn off the echo, this 
can be effected under Q/C since The Code 
Works is kind enough to provide runtime 
and compiler source code. 


Link Formats 


In the October 1983 column I dis- 
cussed incompatibility between link for- 
mats. Readers had quite a bit tosay about 
this and their comments are summarized 
here. 


Guy Scharf of Mountain View, Cali- 
fornia, writes: 

“I find the incompatibility of linkage 
editor formats to be a real problem. For 
example, I want to use Digital Research’s 
Access Manager and Display Manager 86 


with C. I would prefer CI-86 (because I 
am used to it) but have to switch to DRI’s 
C because of the link format. Another 
compiler to learn and idiosyncrasies to 
surmount,”’ 

He concludes: “I’m not sure what to 
do about this problem (except complain).”’ 


David D. Clark of State College, 
Pennsylvania, writes: 

“The big problem isn’t really the for- 
mat of linkable files. Even compilers that 
use Microsoft’s M80 and L80 will not allow 
linkage to code produced by different 
compilers. The function -calling protocols 
vary tremendously from compiler to com- 
piler. BDS C and Q/C have fairly straight- 
forward function-calling protocols. Eco- 
C, on the other hand, has a tortuous func- 
tion- calling sequence. And even though 
Q/C and Eco-C use the Microsoft assem- 
bler and linker, the code files produced 
by them are not compatible.” 


The problem that Mr. Clark mentions 
is also present in the 8086 (MS-DOS, 
CP/M-86) world. Code from different 
compilers cannot be mixed because: 


1. Each requires its own main function. 
2. A wide variety of link formats exist. 


3. Calling conventions differ between 
compilers. 


The first two points are essentially insur- 
mountable problems from the end user’s 
point of view. However, the third point 
can be overcome by adding dummy rou- 
tines to convert calling conventions. 

Mr. Clark makes some additional 
points concerning the deficiencies of the 
8080 Microsoft .REL (relocatable) format. 
These are of interest since many 8080 C 
compilers rely on this format. His com- 
ments are summarized in Table I (below). 

It is obvious that an enhanced stan- 
dard is necessary for the CP/M-80 world. 
Even under MS-DOS, where Microsoft 
has enhanced the linkage editor format, 
problems still exist. 

Microsoft’s MS-DOS linkage format 
supports long symbols (31 unique char- 
acters) and has case sensitivity. Thus, it 


‘Table 41. 


Deficiencies i in the Microsoft 8080 -REL For 
and Related Software | 


1. M80 and DRI’s RMAC assemblers support only six unique 
upper case). This is awkward for many purposes. : 


. While the .REL format apparently will handle seven -uniqu Cf aracte : ' 
neither M80 nor RMAC supports this. | 


. Apparently the .REL format, M80, and L80 were designed to work with 
the Fortran-80 compiler, which permits only six character symbols. This 
is an old standard and does not reflect the needs of today’s compilers. The 
absence of case sensitivity in symbols is especially limiting. : 





overcomes the objections that Mr. Clark 
posed for the 8080 .REL system. How- 
ever, one nagging problem still remains: 
the dichotomy between object modules 
and libraries. Because of this dichotomy, 
the MS-DOS linker always includes the 
full contents of an .OBJ module during 
linking. 

However, libraries are searched. To 
make a library efficient, each function 
must be compiled into its own .OBJ file. 
Each .OBJ file then becomes a single sub- 
block in the library, and all the functions 
of that sub-block file are included at pro- 
gram linkage. If libraries and object mod- 
ules were equivalent, this problem would 
be overcome since the functions of an 
object module would be separable during 
linking. 


Runtime Libraries 


Nonstandard runtime libraries are a 
plague to programmers. They inhibit 
portability and introduce bugs when soft- 
ware is transported between different 
compilers. Charles Brady of New South 
Wales, Australia, writes: 


‘An enormous contribution to stan- 
dardization of C programs would be the 
publication of a standard I/O library for 
BDS C, with, if necessary, a modified run- 
time package. The very fast and efficient 
compiler, particularly with the symbolic 
debugger tool, provides a very inviting 
environment for software development. It 
is a great pity that this means abundant 
nonstandard C. As there is no inherent 
reason why this should be the case... 
someone should be able to... produce a 
Unix compatible I/O library.” 

This point is especially well taken in 
view of the large amount of BDS C soft- 
ware available through the C User’s Group 
of Yates Center, Kansas. 

In the case of the runtime library it- 
self, a clear standard exists. This standard 
is spelled out in The C Programming 
Language. All compilers have to do is 
support a proper subset appropriate to 
the environment in which they work. 


Conclusion 


In this column, I have included the 
follow-up discussion on Unix and on link 
formats/runtime libraries. The discussion 
has been mainly of a critical nature. How- 
ever, this is not intended to be a condem- 
nation of the systems but rather an impe- 
tus for readers to suggest new ideas to 
improve what we already have. Unix is a 
worthwhile standard and should be sup- 
ported. C is a valuable tool but can be 
improved. This column is a forum where 
we can discuss, develop, and nurture new 
ideas about C and Unix. DB 
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use SOFTCOM® 


SOFTCOM is a smart terminal and file 

transfer utility all in one easy to use 

package. SOFTCOM can: 

® make your system a terminal to a 
HOST time sharing system. 

© capture data onto your disk from a 
HOST time sharing system. 

¢ send text and program files from your 
disk to almost any type of computer. 

¢ exchange any type of file with another 
SOFTCOM system with error detec- 
tion and automatic retry. 

SOFTCOM runs on all CP/M based 

computers. Three license options are 

available: single CPU ($150), dual CPU 

($250) and multi CPU ($450). Call our 

software HOT LINE 906/228-7622. 
The Software Store 
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nodal simulation for your microcomputer! 


Western Wares 
oe Box C 
Norwood CO 81423 
(303) 327-4898 


Circle no. 65 on reader service card. 





Advertise During 


Months 


May - June - July 


July Space Reservations Deadline: 
May 3, ‘84 
Material Deadline: 
May 10, ‘84 


Contact: 
Walter Andrzejewski 
Beatrice Blatteis 
Alice Hinton 


Dr. Dobb's Journal 


P.O. Box E 
Menlo Park, CA 94026 


(415) 323 - 3111 


Circle no. 69 on reader service card. 





IC. PROMPT DELIVERY! 


SAME DAY SHIPPING (USUALLY) 


DYNAMIC RAM 
‘256K 150 ns $85.00 
64K 200 ns 5.97 
64K 150 ns 6.09 
64K 120 ns 6.90 
16K 200 ns 1.56 
EPROM 
27128 300 ns $22.50 
2764 250 ns 8.30 
2732 450 ns 4.75 
2716 450 ns 3.60 
2532 450 ns 4.75 
STATIC RAM 
6264P-15 150 ns $35.97 
6264LP-15 150 ns 42.00 
6116P-3 150 ns 5.75 


MasterCard VISA or UPS CASH COD p 
Factory New, Prime Parts Foo 
MICROPROCESSORS UNLIMITED 
24,000 South Peoria Ave 
BEGGS, OK. 74421 (918) 267-4961 
Prices shown above are for Jan. 13, 1984 
Please call for current & volume prices. Prices subject to change. Please expect higher 
prices on some parts due to world wide shortages. Shipping and Insurance extra. Cash 


discount prices shown. Federal Express Standard Air @ $5.99! Orders received by 6 PM 
CST can be delivered to you by the next morning 


Circle no. 35 on reader service card. 


80 CHARACTER 
VIDEO BOARD 


TYPE AHEAD KEYBOARD BUFFER 
WORDSTAR/dBASE II OPTION 
25 LINE NON-SCROLL OPTION 
ADAPTABLE SOFTWARE 
Z80 CPU & 8275 CRTC 
VDB BARE BOARD FROM = 52. 
PRE-SOLDERED (LESS ICs) $191. 
ASSEMBLED & TESTED FROM $282. 

P.O. Box 601 

Hoffman Estates, III. 60195 

(312) 359-7337 
OEM & Dealer pricing available , VISA & M/C 
$3.00 S&H, 5% cash discount, Ill. res. add 7% tax 


dBASE is a trademark of Ashton- Tate Corp. 
WORDSTAR is a trademark of Micropro Int’! Corp. 





Circle no. 54 on reader service card. 


JVS-FORTH $10 
© SUPPORTS BYTE, INTEGER, AND REAL DATA 
© COMPLETE ACCESS TO CP/M 
® REQUIRES ASSEMBLER/LINKER BELOW 


BASIC COMPILER $20 
@ SUPPORTS INTEGER, REAL. AND STRING DATA 
@ 25 STATEMENT TYPES 
@ GENERATES 8080 ASSEMBLER CODE 
@ RUN TIME LIBRARY SOURCE AVAILABLE ($50 EXTRA) 
@ MANUAL ONLY $5 (REF. WITH SOFTWARE PURCHASE) 
@ REQUIRES ASSEMBLER/LINKER BELOW 


ASSEMBLER/LINKER $10 
@ SYMBOLIC 8080 RELOCATABLE ASSEMBLER 
@ LINK EDITOR (LIBRARY SEARCH CAPABILITIES) 
@ LIBRARIAN FOR LINK EDITOR LIBRARIES 


FREE BROCHURE AVAILABLE 


CATERER TARA ANN RiRihiaicinioeaciiian . 
z REQUIRES CP/M-80 V2.2 AND 32K 
8” 3740 SSSD OR APPLE 5'«" 16-SECTOR 
: DISK FORMATS ONLY = 
Deeececcccaceccgegceegcecsecceseses PIII e 
WHEN ORDERING ADD $10 FOR 
SHIPPING. HANDLING. AND MEDIA COSTS 
MASS. SHIPMENTS ADD 5% SALES TAX 
MAKE CHECK OR MONEY ORDER PAYABLE TO 


JV SOFTWARE 
P.O.BOX 684°-NEWTON, MA 02162 


CP/M ts a trademark of Digital Research. Inc 
APPLE is a trademark of Apple Computer. Inc 





Circle no. 28 on reader service card. 








Get the power of your Z80, and the elegance 
of direct access to CP/M functions 
from your high level programs with 


SYNLIB utility library 


SYNLIB consists of MICROSOFT compatible object 
code that may be called from any high level language 
that uses MICROSOFT parameter passing conventions. 


SYNLIB gives you extremely powerful array and buffer 
manipulation using the Z80 LDIR instruction; program 
access to the CP/M CCP console command line; high 
speed disk block I/O; a high quality random number 
generator, hex to ASCI/ conversion optimized by special 
280 instructions; program chaining; and more. 


And, because our programmer abhors a vacuum, each 8” 
floppy comes packed with some of the most valuable 
public domain software, including available source, ab- 
solutely free. You get SWEEP, a menued disk utility that 
makes a computer phobe a systems programmer 
UNSPOOL, so you can print and use your computer 
without buying an expensive buffer; /, to get multiple 
commands on a line; MODEN7, so that you too can join 
the free software movement; and many others. 

SYNLIB $50.00 8” SSSD CP/M format 

SOURCE: $100.00 
Licensing for commercial use available. 
SYNTAX CONSTRUCTS, Inc. 
14522 Hiram Clarke, Houston, Texas 77045 
(713) 434-2098 


CP/M is a registered trademark of Digital Research, Inc. 
Microsoft is a registered trademark of Microsoft Corp. 































Circle no. 61 on reader service card. 


CGRAPH 


DEVICE INDEPENDENT 
GRAPHICS SOFTWARE 


¢ Vectors 
¢ Character generator 
¢ Windowing and clipping 
¢ Re-entrant and re-interruptible 
¢ Multiple simultaneous windows 


Graphics programs independent of physi- 
cal display, drives many displays at once. 
Completely documented in clear English 
with examples. Typical device drivers pro- 
vided for hardware, including EPSON print- 
ers. Shipped as C SOURCE CODE on 8” 
SSSD CP/M or 5%” MS-DOS disk. Specify 
standard (K&R) or BDS C version. Ask for 
availability for other operating systems or 
media. Send check for $49.95 to 


Systems Guild Inc. 
P.O. Box 1085, Cambridge, MA 02142 
617-451-8479 





Circle no. 62 on reader service card. 


i oe 


CP/M2.2 INTRCEPT CDOS 
Mg ge Se 
NEW version for 1984! 


eEnables programs written for Digital Research 
CP/M 2.2 to run under Cromemco CDOS and 
vice versa. INTRCEPT release 3 automatically 
recognizes the host system, and emulates 
CP/M 2.2 if the host is CDOS, or emulates 
CDOS if the host is CP/M 2.2. 


¢ No programming, delivered ready-to-run. 


¢ Customizable...comes with CDOS emulator 
source, CP/M 2.2 emulator source optional. 


e Z8O assembly language, no program or 
operating system modifications. 
$150 w/CDOS emulator source 
$250 w/CDOS & CP/M emulator source 
8” SSSD, inquire about 5%” 


add $3 shipping, add 6% tax in CA 
VISA, MC,check 























microSystems 
16609 Sagewood Lane 
Poway, California 92064 
(619) 693-1022 






Circle no. 45 on reader service card. 








OF INTEREST 


by Michael Wiesenberg 


TEXnical Information 


If Stanford’s Donald Knuth has 
his way, typesetting will no longer be 
an esoteric trade practiced only by a 
privileged and knowledgeable few. 
Computerized typesetting with its 
almost infinite flexibility permits indi- 
viduals to set their own copy. No 
longer need the wasteful method be 
followed of one person producing 
copy on a word processor and printing 
that copy out on a daisy-wheel printer 
for another individual to reenter on 
the front end of a phototypesetter. 
That, of course, introduced new 
mistakes by the person doing the 
typesetting, an individual often un- 
trained in the discipline addressed 
by the original author and thus un- 
likely to recognize many typographical 
errors. 


Also the typesetting equipment, 
even if computerized, does not have 
error-checking facilities like the spell- 
ing and grammar checkers available on 
microcomputers. Sometimes the only 
interface between the supposedly com- 
puterized phototypesetting front end 
and the phototypesetter itself is not 
even a direct link but an antiquated 
paper tape. A completely new tape has 
to be punched each time a particular 
document is updated. 


Some people predicted the death 
of the typesetting industry, or at least 
danger to members of the typesetting 
unions, when Knuth released TEX 
(pronounced tek) in 1978; but in fact 
what will happen is that typesetting 
will become more universally acces- 
sible, creating more jobs. When word 
processing was introduced, it did 
not — as some doomsayers had pre- 
dicted — render secretaries obsolete; it 
just moved some of them from the 
typewriter to the terminal. What did 
happen was that more documents were 
produced. With the proliferation of 
computerized typesetting, we'll just 
see more good-looking documents. 


Now, how can you get TEX onto 
your TRS-80 or Apple? Well, that’s 
the bad news. You can’t. Until re- 
cently, TREX was available only for 
mainframes. But here’s the good news. 
You can get it on a system that has, 
depending on configuration, a mini- 
mum of 500K of main memory. Such 
systems range from the IBM PC to 
Hewlett-Packard computers. Since the 
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TREX software is in the public domain, 
you could theoretically put it onto a 
virtual memory system with as little as 
128K memory, but you'd have to 
adapt the software yourself and write 
the drivers for whatever output device 
you needed. That shouldn’t be too 
hard for you Pascal wizards, right? 

If you plan to implement TREX 
yourself and want the public domain 
software, you can get it from Maria 
Code by special arrangement with the 
Computer Science Department of 
Stanford University. 1200-foot tapes 
in various formats are $82 per tape if 
you supply the tape, or add $10 if you 





don’t. The generic tape contains 
TRX82,' WEB, fonts, and other mis- 
cellany; you need a Pascal compiler. 
Reader Service No. 101. 


The T— Xbook 


Knuth’s first version, TRX78, was 
written in SAIL. TR X82 is written in 
WEB, a system of structured docu- 
mentation that combines the features 
of both a programming language (Pas- 
cal) and a document formatter (TX). 
To illustrate Dr. Knuth’s marvelous 
sense of humor (also found, by the 


If the generator is now tuned to $f 0%, where the receiver power gain 

is $G(f 0)$, the total power output wiil be 

$S$SP=FKT\int*\infty 0 GCfI\, df+Sa(f_0)$$ 

where $S$ is the available signai power. If $S$ is now adjusted so that 

$P=2N$, i.e., so that the reading of the square law detector doubles, then 

$$FKT\int* \infty_ 0 GCf)\, df=SG¢f 03S 

$$F={(S\over kT{1\over GCF _O)}\int*\infty_O G(f)\, df}={S\over kTB> 
\eqno{(3)}>$$ 

where 

$$B={1\over GCf 0)}\int* Ninety 0 GCf)\, df=\hboxteffective noise bandwidth}$$ 

in order to find $B% it is usually necessary to measure the power gain 

as a function of frequency and integrate the curve graphically. This 

method has major disadvantages, however, since it is time-consuming 

and since $G(f)$ may vary with dif eferent conditions of adjustment. 

A further disadvantage is the difficulty of determining $S$ with the required 

accuracy at the low levels invoived. 


Figure 1. 


Source code for the HPTEX output shown in Figure 2, below. 


If the generator is now tuned to fp, where the receiver power gain is G{fo), the total power output will be 


P= rer | G(f) df + SG(fo) 


where S is the available signal power. If S is now adjusted so that P = 2N, i.e., so that the reading of the 
square law detector doubles, then 


PRT j ” G(f) df = SG(fo) 


S S 


fa. 
kT a5 Jy Gli)4f kTB 


P= aml, % 


In order to find B it is usually necessary to measure the power gain as a function of frequency and integrate 
the curve graphically. This method has major disadvantages, however, since it is time-consuming and since 
G(f) may vary with different conditions of adjustment. A further disadvantage is the difficulty of determining 
S with the required accuracy at the low levels involved. 


where 
(f} df = effective noise bandwidth 


Figure 2. 
Actual output of HP2688A Laser Printer using HPTEX. 


Source and output courtesy of Boise Division of Hewlett-Packard. 
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way, in his TfXbook): you pass a 
.WEB source file through the TANGLE 
program to produce a .PAS Pascal file 
or through the WEAVE program to 
produce a .TEX file (that can now be 
processed by TpX). (‘Oh what a tan- 
gled web we weave....’’) 

You cannot use TRX without a 
copy of The TFXbook. It is a delight 
to read, though really meant only for 
actual users of the software because it 
has a lot of exercises for you to try 
out. If you don’t do them, you won’t 
be able to follow what he’s talking 
about. If you are familiar with his 
monumental series, The Art of Com- 
puter Programming (considered by 
most programmers to be the best thing 
written about programming), you have 
an idea of the level of expertise re- 
quired for The TRXbook. Published 
jointly by Addison-Wesley and the 
American Mathematical Society, the 
book may be ordered from the latter 
for $15 (including p. and h., or add $2 
for first class, $3 for airmail outside 
the U.S.). For 438 pages, most of it in 
nine- and ten-point type, that’s a 
bargain! Reader Service No. 103. 





HPT EX 

The version I have been using is 
HPTRX, Hewlett-Packard’s implemen- 
tation of TRX82, on a 68000-based 
HP series 200 Pascal workstation, 
model 36. The software costs $4000. 
A typical configuration includes 
9836A (the workstation with 500K 
RAM, Pascal, BASIC, UCSD editor, 
and several other utilities), $12,110, 
three more 256K memory boards at 
$1060 each, a disk interface for $605, 
DMA card for $500, 65Mb hard disk, 
$17,350, and the HP2688A desktop 
laser printer for $26,000. (You could 
save some money by substituting a 
model 26: you need 1.25Mb main 
memory, not necessarily the 1.75 I’ve 
been using; you can “‘get by” with 
15Mb storage — although 65 is recom- 
mended — and you don’t necessarily 
need the high-speed memory access, 
which also eliminates the need for the 
disk interface card.) 

With this system, I can literally 
typeset an entire book by myself. I 
can choose from any of over 340 
fonts, which come in sizes ranging 
from five to 40 points. A powerful 
macro Set allows easy specification of 
any format. Dr. Knuth originally 
developed TREX so that complicated 
mathematical formulas in his books 
would be set exactly as he wanted, 
rather than as the typesetter felt it 
should look. TEX really shines at this, 
but it also excels at easily setting 
tables and other complicated formats. 
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HPTRX comes with an extensive 
set of macros that permit, among 
other things, multicolumn mode, with 
each column using a different font 
and a different measurement between 
lines, automatic generation of table of 
contents, and automatic indexing. I 
can define macros myself that permit 
juggling figures and tables around in a 
manual without worrying about chang- 
ing the numbers (what happens to 
Figure 3-1, for example, and all the 
figures thereafter, when you have to 
insert two figures at the front of a 
manual?) of each. Many other com- 
puterized typesetting systems do not 
allow complete page layout, but this 
one does. Figures automatically float 
to a page with enough room for them, 
footnotes fall on the page on which 
they are referenced, and if material is 
added, the rest of the text automat- 
ically reformats itself. 

Those familiar with typesetting 
know that any time anything is changed 
in a book, the effect ripples through 
the rest of the book, often requiring 
intervention by the typesetter on each 
page. Because things move around, 
technical writers have learned never to 
refer to other sections by page num- 
ber; with TRX, this is no longer the 
case. 

The heart of the HPTRX system is 
the HP2688A laser printer, which is no 
bigger than a computer terminal. The 
resolution produced by this little mar- 
vel is 300 dots per inch. While that 
does not approach the 3000 dots per 
inch of the Autologic APS-5, it is con- 
siderably better than most dot matrix 
or daisy-wheel printers. And quieter. 
And faster. Reader Service No. 105. 


And For The 1000 


Third-party vendors provide TREX 
for other HP computers, including the 
3000 and the 1000. On the 1000 minis 
and micros with RTE-6/VM or 
RTE-A operating systems, JpJ Word- 
ware offers TE X/1000. You need at 
least 512K main memory and 2Mb 
disk storage. Output devices include 
the Toshiba P1350 and Epson MX80, 
with HP2688A soon to be supported. 
TpX/1000 formats pages at 5 to 30 
seconds each, depending on processor 
and memory. The output driver builds 
a page in memory, and then dumps the 
graphics to a printer. $2500. Reader 
Service No. 107. 


Tick Tock 


TYX Corporation offers an imple- 
mentation of TEX, written in C rather 
than the usual Pascal (or SAIL), on 


DEC Rainbow, Victor 9000, IBM 
PC, and their own integrated Ty XSet 
1000 system. The latter consists of a 
minicomputer that supports up to 24 
users, a Canon Laser printer, a Mergen- 
thaler Omnitech laser typesetter, ter- 
minals, and a typesetting interface. In 
fact, this system could provide the 
entire front end for a typesetting sys- 
tem suitable for a magazine or the 
publications department of a medium- 
sized company. No longer would a 
magazine have to wait several days to 
look at galleys and several more for 
the corrections. 

TYX also offers smaller versions 
of their system configured on DEC 
Rainbow, Victor 9000, or IBM PC. All 
come with software and a friendlier 
interface than normally comes with 
TRX. Various function keys insert 
commands as needed, including the 
right number of beginning and ending 
group delimiters. All systems include a 
screen preview mode. While this imple- 
mentation is TRX78, TYX expects to 
have TRX82 within a year. TYX also 
provides the service of taking TRX 
output files from customers who do 
not have phototypesetters and provid- 
ing camera-ready copy from their own 
Autologic. Reader Service No. 109. 


Get on the TUG 


If you plan to use TRX, or at- 
tempt to implement it on your system, 
you will want to talk to others who 
have already done it. TREX has been 
put onto everything from Z80 systems 
to IBM 370s. The TEX Users’ Group 
puts people in touch with “‘site coordi- 
nators,”’ those in your area who have 
already implemented TEX with a sys- 
tem like yours. They also publish 
TUGboat, have yearly meetings, sell 
TpX tee shirts, etc. They'll send you 
an information packet containing 
TUGboat 1 #1, ‘““‘TRX and Metafont: 
Errata and Changes,’ the TRX Users’ 
Group Membership List (with the over — 
800 members sorted by name, com- 
puter, and output device), and forms 
for ordering TRX82 and joining TUG. 
You can also get information on video- 
taped instruction and special in-house 
courses on TRX. Reader Service 
No. 111. 


Lost of Storage 


Optical disk storage may be avail- 
able within a few years for most 
micros, and at the prices now being 
paid for hard disks. The advantage is 
storage not in megabytes, but in 
gigabytes! Companies like Optimem, 
Thomson CSF, Panasonic, and 3M are 
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working in this field. Who needs that 
kind of storage, you ask? Hospitals, 
storing thousands of digitized x-rays 
for immediate display, each of which 
can require 512 by 512 pixels by 16 
bits deep, CAD systems, and movie 
production companies, who need to 
store millions of frames with virtually 
instantaneous recall. Did you know 
that credit cards are now available that 
can hold megabytes of information? 
And here’s an ominous development: 
the military is very interested in 
optical drives because they feel such 
drives to be the only medium that 
could survive a nuclear attack. You 
can read all about all of this in Optical 
Memory News, $295 per year for six 
issues. Reader Service No. 117. 


Improving the Compatibles 


The STM Personal Computer, 
from STM Electronics (the folks 
who brought you the Pied Piper port- 
able), a 17-pound, IBM PC-compatible, 
transportable computer based on the 
80186 true 16-bit CPU, with integrated 
16-line, 84-character, LCD, backlit by 


an electroluminescent panel for total 
darkness use, 40-column thermal 
printer, 94-key (including numeric 
pad and 10 function keys) keyboard, 
programmable 300- to 1200-baud 
auto dial/auto answer direct connect 
data communications modem, 256K 
RAM (expandable to 512), dual 1Mb 
(800K each formatted) floppies, stan- 
dard video monitor support with 
windowing software and high resolu- 
tion graphics, parallel port, two pro- 
grammable serial ports, hard disk 
interface, edge connector to send 
I/O to an external expansion box, 
and integrated software, running under 
MS-DOS 2.0, with word processing, 
spreadsheet, database, graphics func- 
tions and communications software all 
standard, costs $3000, with a desktop 
version for $2500. Reader Service No. 
155. 


Cross Assembling 68K 
Quelo wants us to know that their 
cross assembler for the MC68000 


runs not only on CP/M-80, but also on 
CP/M-86, CP/M-68K, and PC-DOS, 


and they offer portable C source code. 
You get up to 31 characters in sym- 
bols, lowercase distinction, byte object 
linking, XOR, MOD, and NOT, break 
and elseif for control structures, error 
messages in English, a linker with 
limitless program size and number of 
modules that can be linked, and linker 
resolution of complex expressions. 
Reader Service No. 119. 


Light Up Your Screen 


Tech-Sketch Light Pens, for Com- 
modore, Apple, and Atari, control the 
cursor or select menu options without 
hardware modifications. The LP10-S 
requires screen contact, while the 
LP15-S is a high-resolution pen that 
operates up to six inches from the 
screen. From $39.95. Reader Service 
No. 113. 


BBL 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 198. 


“ by far the best debugging tool 


available for the IBM-PC today.” 
S. Lerner, Multi Systems Group 


CDE SOFTWARE 


CHECKS AND BALANCES... .$49.95 
At last! A full-screen editing checking and finance 
program so informative and easy to use you ll 
wonder how you lived without it! Requires Z-80 
processor and CP/M 2.2 or compatible system. 2001 0003 


2001 0002 


2001 0004 
2001 0005 


2001 0006 C BP. SP TYPE YOUR COMMENT! 
ORIGINAL ADVENTURE $29.95 moi oe cos s Gn 
2001 0008  B95EFE F6HIBP). BX 


CDE offers the fastest running version of this 2001 O00e FANIBP OX 
F . . 2001 0011 80761 f SI. 1EHIBP} 
classic computer game available for a microcom- aout 014 Faas Movse 
2001 0016 241 AND AL. 000111008 


puter. a eee 0B 69 


ENTER DUMP ADDRESS 304 0056 Absolute Address 03096 Segment Offset 0304 9056 
CATCHUM and |_ADDER $39 95 0304 0050 41-53 43 49 49 20 GB 55-50 50 4F 52 54 20 32 20 ASCII QuPPOAT ? 
: 0304 0060 20 20 20 20 43 GF 64 65-53 6D 69 74 68 2D 38 36 CodeSmith-d6 
\ \ 0304 0070 20 40 41 4B 45 53 20 44-45 42 55 47 47 49 4E 47 MAKES DEBUGGING 
Now you can enjoy the excitement of arcade Se ee as lier vier el iss ep 
games on your CP/M computer with these two 


20 20 20 20 20 20 A BLAST! 
variations of popular screen games. 


;SET A BREAKPOINT 


CHANGE RADIX! 
.FORCE OB OPCODE 


INOW 2 LVL 1 


« Simple/single keystroke commands 

- Scroll up/down thru full-screen disassemblies 

* SCREENSAVE Mode 
Saves and restores user's graphic display when 
breakpoint hit 

- Continuous monitoring of selected memory 

+ Hundreds of tagged breakpoints supported 

- Disassemble selected ranges of memory code 
to disk—compatible w/IBM Assembler 

- Many other inspired features 

- Requires MS-DOS & 160K RAM 


MasterCard - VISA » COD Orders 


VISUAL AGE 


642 N. Larchmont Bivd., Los Angeles, CA 90004 
(213) 439-2414 CodeSmith, TM International Arrangements, Inc. 6: 
F 


MS, TM Microsoft Corp. IBM, TM international Business Machines Corp. 


DISKS from Allenbach. Lifetime certification and 
hub-protector rings. 
Single Sided 
Single Density 
5%" - 
8” $30.95 


Single Sided 
Double Density 
$27.95 
$35.95 


Double Sided 
Double Density 
$32.95 
$42.95 


Visa and MasterCard accepted. Write or phone for our 
complete catalogue of games, business and develop- 
ment software, and accessories for your microcomputer. 
Our telephone —(213) 661-2031. 


2463 McCready Avenue @ Los Angeles, CA 90039 
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SPECIALIZING IN HARD DISKS AND HIGH 
PERFORMANCE STREAMING TAPE UNITS 








MD-10 


44 MEGABYTE (FORMATTED) 
5 1/4” HARD DISK Including 


POWERE $1995 





ROWER: 


Check out InfoWorld's Rave 
review of POWER Nov. 8/82) 


95 CP/M 
UTILITIES IN 
ONE PACKAGE 


...The super program that puts you in control of CP/M 
(or MS-DOS) and your winchester. 


POWER automatically numbers disk files. Just pick file 
number to Copy, Erase, Reclaim, Type, etc. 

... Your computer feeds the file names automatically. 
Youdo NO typing! NO typing error ever! 

YOU DON’T NEED SYSTEM DISK IN ANY DRIVE. 

No more BDOS ERROR! 


YOU Test and Fix bad disks! Reclaim accidently erased 
files or programs! Single step thru memory up or down! 
Search, view, change memory or disk in a snap! See 
Status and File Size instantly! Verify check-sums for 
programs! Load or Save programs at any address. 


55 prompted user-friendly funstions for housekeeping 
and a 120 page easy-read user’s guide make POWER 
your most often used software. You'll use it every day! 


Now, POWER! also includes a special program that lets 
you lock sensitive files, so that only you can access 
then. Without the secret PASSWORD which you can 
create and change at will, no prying eyes will ever 
know your secret file even exists. 


SOME MAJOR POWER COMMANDS: 


REN CM WRITEGR DISK STAT 
TYPEA USR 2 DUMPA SPEED SETDIR 
SIZE ERA SEARCH WRITE RECLAIM 
XUSER TYPEX ? DUMPX DS 
SETRO CHECK COPY FILL READ 
GROUP _ TEST TYPEH EX DUMP 
SAVE SETWR EXIT DIR MOVE 
READGR LOG USER TYPE JP 
DUMPH LOAD SETSYS RUN 





MEGA: py TE 


For this low price your winchester will be delivered completely assem- 
bled and tested, with drive controller, case, power supply, cabling, Z-80 
interface and the best disk controller software on the market. 


@ The unique and simple interfacing system does not 
tie up existing ports. 

@Significantly faster than other winchester sub- 
systems which interface through the IEEE-488 port. 

@ CP/M drivers require minimum memory overhead 
(about 2K-other systems require as much as 6k) 

@ The MD-10 can read or write a 64K file in less than 
four (4) seconds. 

@ A network system will be available shortly which can 
support up to sixteen mixed types of computers from 
one MD-10 or larger disk subsystem. 

@ With POWER! Software files can be code word protec- 
ted. 

@ Other systems available: 22 and 44 megabytes 


MD-20 with 22MB formatted: $2895 
MD-44 with 44MB formatted: $3995 


@ Up to eight (8) winchester subsystems can be inter- 
faced to one computer. 

@ Software supports 32 different user areas per MD4O. 

@ Backing up hard disk files is simple with the special 
software which is provided with all subsystems. 

@With a single hard disk installation, the MD-10 sub- 
systems becomes units A and B with the standard 
drives being designed E and F if a second MD-10 is in- 
stalled later it becomes units C and D. 

@ MD-10 or larger systems will interface with IBM PC or 
any Z-80 computer (CCS, APPLE (CP/M), 
ZENITH/HEATH, NORTHSTAR, GODBOUT, XEROX 
820, Z-80/S100, ALSPA, or TRS-80 MOD 1!) using 
CP/M, OASIS,PCDOS 2.0, andGodbout Software sup- 
ports both CP/M and MP/M816. 

@ Double density modifications are available allowing 
you to later increase the capability of an MD-10 to 
about 20 megabytes, MD-20 to 40, etc. 

@ Full One-Year Warranty 


em i pS Ashita 
HIGH PERFORMANCE STREAMING TAPE 


Unique! Simple! 


Compatible! 


peu essai eesnsiiiiseeereeeeeeeereneerereeeeeeeeeneneeeeeeeeene 


@ Field-proven Archive Sidewinder tape unit. 
@ Interfaces with ANY SASI/SCSI compatible hard disk peripheral. 


@ Full CRC error-checking 
@ Superb reliablity. 
@ Full One-Year Warranty. 


© Fast (up to 20MB in less than 5 minutes, up to 40MB in less than 10 minutes). 


$1795.00 20MB 
$1995.00 45/60MB 


$29.95 3M DC300XL 
Streaming Tape Cartridges 








o.; ORDER OR FOR MORE INFORMATION: 
(801) 257-7033 or mail to MEGA-BYTE INC. RT. 3 Box 35, Tremonton, Utah 84337 














TERMS: Cashiers Check, VISA,M/C or COD. [7 > Te 
ORDER o shipping charges added to all orders. 
Name : Price Total 
102 EMI HIE noon 
COMPANY TITLE 
a ae ADDRESS an 
56 oa STATE ZIP 
TEL ¢ ) 
VISAO M/CO Codon Total Order 
Card # Exp. Date If Utah Tax CP/M is a registered trademark of Digital Research. OASIS is a 
proprietary product of Phase One Systems Inc. Z-80 is a trademark 
Signature Total Enclosed of Zilog. MD-10 is a registered trademark of Media Distributing. 
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Available now. 


The Best of Both Worlds 


High-performance 


CompuPro Hardware 


with high-performance 


Cromemco Software. 
Cromemco’s MC68000-Z80 CROMIX multi-tasking 
operating system with drivers to support CompuPro hardware. 
(requires Cromemco DPU) 


68000 


ASSEMBLER 






LLELLL LLL EEL | 


Minimum configuration: 


DPU - SystemSupport! - Disk] - Interfacer3 or 4 - 192K RAM 


CROMIX with drivers to support minimum configuration $890. 
Special drivers only $295. 


FETT T EET ES PEPE EEE T ETT TTT ETT 
The following products can be added to any 8 or 8-16 bit CROMIX system: 
SCSI hard disk drivers $195. t 


15Mb formatted hard disk subsystem $2095. 
30Mb (two drives) $2995. 



























4 MDrive-H drivers $195. MOTOROLA SYNTAX MACROS 
Computro Sink Mbdive Ei Rartyase__ $1605, LINKER CONDITIONALS 
Other drivers i: development... custom inquiries welcome. OBJECT LIBRARIAN 
7 CROSS REFERENCE 
Authorized CompuPro Dealer. _ STRUCTURED PROGRAMMING FEATURES 
PuterParts 
2004 4th Avenue OBJECT CODE OPTIMIZED 
P.O. Box 12339 ; FOR CP/M-80, CP/M-68K $300 


Seattle, WA 98111-4339 
(206) 682-2590 


OR IBM-PC 
Telephone 





PORTABLE C SOURCE | $750 


—— ee 


OPEN Q 
uelo (206) 784-8018 
2-6 Tuesday-Saturday 843 NW 54th mornings 
3 Seattle, WA 98107 Dick Curtiss 





**PuterParts” is o registered trademark 


CP/M is a trademark of Digital Research 
IBM-PC is a trademark of IBM 


of Katharos Companies 
Additional trademarks: Z80, Zilog: MC68000, Motorola: CROMIX, DPU, Cromemco 
SystemSupporil, Disk], Interfacer3, -4, MDrive-H, CompuPro 


F + an a ap ae a =a Saba — 


Circle no. 46 on reader service card. 


Circle no. 47 on reader service card. 


‘eerste Q 


102 : Dr. Dobb’s Journal, April 1984 








Like the molecules in a 
snowflake, the elements of a + i 
ore) an) 0)0](2) merc it-le)- tomers amel> 
structured and related in an 
Talilalitcmvsclatsinmelmexe)anle) arate 
tions. Being able to present 
these combinations quickly ¥ 
-and efficiently, with maximum. 
flexibility and minimum pro- 
ol clanlaaiiarem care) i (oxe(e(omm ioe tare 
mark of excellence which 
sets the sophisticated data- 
base management system 
lore lam icesamtarcne)cel lars lav 


Thousands of satisfied users, 
from amateur and profes- 
sional programmers to : 
government agencies, major Compatible with CP/M, 
corporations and industries, Cpy/\4-86, MP/M-86, 

have found that DataFlex MSDOS, PCDOS, TurboDOS, 
has no equal in applications — \\ovell Sharenet, PC-Net, 
development software. = Molecular N-Star, Televideo 
Vaal (oMeo)al o)ate)alom(e)mel0] a r- (cts) mmm \Y/ (00100 @hoN Bya\e1((0)a i D) nd O17, Osoy 
literature and alist of existing © Omninet, IBM PC w/Corvus 
Fle) @)|(er= le) ase and OSM Muse. 












DATA 


APPLICATIONS DEVELOPMENT SOFTWARE 


DATA ACCESS CORPORATION 


8525 S.W. 129th Terrace, Miami, Florida 33156 (305) 238-0012 TELEX 469021 Data Access Cl 


MSDOS is a trademark of Microsoft. CP/M and MP/M are trademarks of Digital Research. DataFlex is a trademark of Data Access Corp. 
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